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le monde de Pinformatique 

Mid Mt& It f*^** f*g* 

si par hasard, vous aviez une rtieillsufe affre, 



DEPARTEMENT SOFTWARE 



INTERNATIONAL 
COMPUTER 




PERSONAL SOFTWARE 

Cette societe, intallee en pleine "Silicon Valley", a Sunny- 
vale en Californie, est celle qui a "invente" I'un des best-sellers 
de programmes de microinformatique : le Visicalc. 

Nous sommes tiers de vous presenter ici leurs nouveaux 
produits. Tous ces programmes necessitent au moins un 
APPLE 48 K et une unite de floppy. Ms sont fournis avec une 
abondante documentation, helas pourl'instanten langueame- 
ricaine. 

Contactez nous pour les versions disponibles pour CBM. 



VISICALC 



1690 F TTC 



(nouvelle version) 

L'un des programmes pour ordinateur personnel parmi les plus repandus au monde. 

Parce que VISICALC est aussi simple a uttliser pour manipulerdes donnees chiffrees sous forme d un tableau 
qu'une simple feuille de papier avec un crayon. 

Pour creer un tableau, il suff it juste de taper letexte, les chiffres ainsiquelestormules a lendroit que vous desirez 
sur lecran. 

En posant la question "et si...", VISICALC vous donnera des reponses immediates. Changez un seul chiffre. 
immediatement, toutes les autres valeurs concernees seront changees et les resultats affiches sur lecran ou sur 
votre imprimante. 

Ainsi, vous pourrez visualiser instantanement le resultat de vos decisions, avant meme o\ les prendre 
L ecran de VISICALC est une fenetre dans un enorme plan de travail, de 63 colonnes sur 254 lignes. C'est une 
enorme feuille de papier electronique, qui peut effectuer un grand nombre de calculs, y compris les fonctions trans- 
cendencies, les "if then" ou les operateurs boleens. Sur l ecran de votre ordinateur. vous pourrez voir VISICALC 
effectuer ses calculs etafficheren quelquessecondes des resultats si complexes, que. sans lui, vous aunez mis des 
heures a obtenir. 

VISICALC est aussi a aise a utiliser qu'une calculatrice de poche Son editeur d ecran vous permet de deplacer 
vos chiffres et vos formules quasi-instantanement. Avec quelques touches de votre clavier, vous pourrez dupliquer. . 
pour des calculs repetitifs, des formules par lignes ou par colonnes. Vous pourrez meme observer deux portions diffe- 
rentes de votre "feuille electronique" simultanement sur I'ecran, en partageant votre ecran en deux, horizontalement 
ou verticalement. Observez.vos donnees en debut et en fin d'annee. vous pourrez ainsi voir la dependance d une 
variable sur une ou plusieurs autres. 

Et ensuite. vous pourrez en faireun etat imprime VISICALC peut aussi echanger ses donnees avecd'autres pro- 
grammes de Personal Software. Prenez lescomptes de vos clients de votre CCA/ DMS, afin de propter dans I'avenir 
votre chiffre d'affaires. Introduisez ces chiffres dans VISIPLOT pour produire des graphiques ou des histogrammes. 



DESKTOP PLAN II 

C'est un programme qui vous permet aisement d'automatiser et d'organiser toutes vos analyses de budget, ainsi 
que vos plannings budgetaires. 

II vous guide pas a pas, depuis le plan originel de votre budget ou previsions, jusqu au resultat final, le rapport, 
d une presentation impeccable. 

II peut egalement generer ses propres graphiques pour une meilleure interpretation. 

DESKTOP PLAN peut saisir les modeles financiers les plus complexes, ce qui le rend particulierement utile pour 
consolider des budgets decentralises et les combiner dans des modeles identiques pour les projeter dans un budget 
global. 

Si vous n'avez jamais fait de moderation finaciere. ce programme vous introduira a une methode plus facile et 
plus efficace de planning financier ou de budgetisation que les laborieuses methodes du passe. 
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VISIPLOT 



Un programme qui ajoute une dimension visuelle nouvelle a toutes vos analyses chiffrees, que ce soit de la 
finance, de la prevision ou de la planification 

VISIPLOT transforme les rangees et colonnes de chiffres, meme les plus ardues a interpreter, en des graphiques 
ou histogrammes faciles a comprendre et cela devant vos yeux. 

Vous obtenez ainsi une qualite de'presentation de vos graphiques, qui ameliorera votre information, et facilitera 
la comprehension. 

Vous n'avez besoin d'aucune connaissance en programmation pour mettre en ceuvre VISIPLOT. Un "menu' 
vousdonne achoisir les options desirees, et vous n'avez plus qu'aentrer vos donnees Votre APPLE fera tous les cal- 
culs necessaires. et affichera votre graphique. Vous pourrez ensuite le sauver sur disque pour une utilisation ulte- 
rieure, ou I'imprimer sur papier. 



Avec VISIPLOT, vous pourrez tracer plusieurs courbes a.la fois, avec differentes series d'informations, ombrer 
plus ou moins les differents graphes, ou les colorier pour faciliter les comparaisons, par exemple des annees ou des 
mois differents.Vous pourrez meme surimpressionner plusieurs graphiques, par exemple vos stocks, et lacourbede 
vos ventes. 

Ce programme permet de visualiser tous types de graphiques ou d'histogrammes, meme circulaires. 
I! genere automatiquement les dimensions x et y, peut inserer des legendes, etc... 

Bien entendu, il peut saisir aussi ses donnees depuis de programmes comme VISICALC, multipliant ainsi ses 
possibilites. 
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VISITREND / VISIPLOT 

Si vous avez besoin d analyses statistiques ou de previsions, et que vous soyez decourages par la difficulty de 
les obtenir. alors. il vous faut VISITREND- VISIPLOT 

Ce programme repond aux besoins des chefs d'entreprise. des planificateurs. des investisseurs. analystes ou 
consultants. Vous pouvez obtenir des regressions lineaires pour connaitre les rapports entre les variables, ou bien 
encore les moyennes variables, ou les lissages exponentiels. etc ... 

Ou encore, ecrire des formules arbitraires pour calculer de nouvelles series, basees sur celles existantes 

Avec une simple commande. vous pouvez obtenir des statistiques descriptives sur n'importe quelles series de 
donnees, par exemple leur variance, leur deviation standard, leur min ou leur max. Et avec la puissance graphique de 
ce programme, vous pourrez produire facilement graphiques ou histogrammes. ce qui pourra facilement vous per- 
mettre de comparer une serie a une autre. 

Ce programme a evidemment les memes possibilites graphiques que VISIPLOT. Comme tous les programmes 
de Personal Software, vous n avez pas besoin de savoir programmer pour les mettre en ceuvre. et ils sont compati- 
bles avec VISICALC. 
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VISIDEX 



Comment se souvenir de tout 9 Ce programme est la pour cela VISIDEX n impose aucune restriction en ce qui 
concerne vos donnees ; noms. adresses. dates importantes rendez-vous. idees. notes, etc ... et priorites. impots a 
payer (helas). stocks et autres informations imporantes 

Et vous pouvez retrouver exactement ce que vous voulez car VISIDEX " pense " pour vous. vous donnant les 
moyens de retrouver n importe quoi. plus vite 

C est comme un fichier vide, vous tapez ce que vous voulez dans une fiche et vous donnez a votre Apple les 
"cles" pour retrouver cette fiche . noms. phrases, chiffres. ou bien dates Car vous decidez du classement de vos 
'fiches' et VISIDEX se souviendra pour vous de votre classement 

Vous donnez juste a votre ordinateur une date ou un nom de client et VISIDEX vous visualise la fiche " conte- 
nani ce nom ou cette information (par exemple. si vous introduisez le nom d un client, vous aurez votre dernier ren- 
dez-vous. son planning d organisation. ses hobbies, sa date d anniversaire et les idees que vous pouvez lui propo- 
ser !) 

VISIDEX permet aussi d impnmer vos informations par ordre alphabetique numerique. ou encore par dates II 
permet de tenir votre agenda et de vous alerter sur les dates, heures ou occasions importantes Grace a sa capacite 
de ne pas structurer par lui-meme I information ce programme vous permet de faire vous-meme votre classement 
Ainsi. votre secretaire pourra mtroduire elle-meme des donnees. et elles viendront se classer dans le bon ordre 

Si vous craignez d oublier quelque chose d 'important. VISIDEX est fait pour vous I! 1 
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CCA/DATA MANAGEMENT 
SYSTEM (CCA /DMS) 

Mailings, fichiers clients stocks comptes fournisseurs et etiquettes adresses tout ce type d informations saisi 
au jour-le-jour. CCA / DMS peut mieux le trailer 

Des tas de fiches sont rempbeees par quelques disquettes 1 Avec CCA DMS. vous pouvez definir les informa- 
tions que vous desirez saisir. la maniere de les saisir ainsi que la maniere de les presenter 

Chaque enregistrement peut avoir j usqu'a 24 champs C est-a-dire que si vous ntrodjisez le Nom Adresse 
Profession. Ville. Code Postal, il vous res te encore 18 informations differentes a saisir Chaque fiche peut avoir 232 
caracteres de long Vous pouvez trier vos fiches en alphabetique ou en numerique. en ascendant ou en descendant 
et jusqu a dix criteres a la fois 1 Trier vos clients par chiffre d'affaire ou par nom. trier "des adresses par code postal ou 
par ville ! 

Et CCA permet aussi de faire des operation's mathematiques simples, comme de multiplier des heures par un 
taux dans une meme fiche. En mode d'impression. CCA peut imprimer des sous-totaux. Compatible avec VISICALC 
VISIPLOT. etc. . CCA/DMS est vraiment I'un des meilleurs programmes de fichiers. en sequentiel indexe. fait pour 
un microordmateur personnel 
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SHARP MZ 80 
Programmes en Francais 

ECHECS 1 95 F TTC 

Necessite 20 K. Ce programme est recommande aux debutants, vu la rapidite 
des reponses. 

SUPER ECHECS 250 F TTC 

Nouveau programme. Detronera bien vite le precedent, a condition de disposer 
de 48 K. Utilise la notation internationale. 

BLACKJACK 1 50 F TTC 

C'est le jeu de carte bienconnu, appelle aussi 21. Utilise legraphisme. De 1 a 8 
joueurs. 48 K et Basic. 

MUR DE BRIQUES 1 50 F TTC 

Objectif :demolir un murdebrique. 1 a9joueurssur6niveauxdedifficulte.32 K 
st Bcisic 

MORPIONII 1 50 F TTC 

Ce programme, mi Basic, mi assembleur, joue selon les regies traditionnelles. 
Le premier qui aligne 5 pions gagne. MZ 80 donne sa reponse en 0,2". Essayez 
de le battre. Depuis 20 K. 

GUERRE DES ETOILES 195 F TTC 

Jeu derive des fameux Startrecks. Vous vous trouvez dans la galaxie, dans une 
aiure de 8x8 quadrants. Votre mission estdedetruire vosennemisgraceal'or- 
dinateur de bord. 48 K et Basic. 



DEPARTEMENT LOCATION 

ET MATERIEL DEPOSITION 

La location est le meilleur moyen de choisir en connaissance de cause votre 
materiel. Un microordinateur est un achat couteux. 
Posez-vous les questions suivantes : 

Aurai-je I'usage d'un microordinateur ? Celui Que je choisis est - i I le meilleur pour 
mes besoins 7 Saurai-je m'en servir convenablement ? Etc... 

Sans risque financier, grace a la location, vous pourrez vous faire une opinion. 

De plus, le montant de la location est entierement deductible en cas d'achat 



APPLE II 16 K 

APPLE II 48 K . 

Moniteur video IM/B . 
DISK II avec contr6leur ... 
CENTRONICS 779 avec interface . 

PET 2001 

CBM 3032 

VIDEOTEAM +TV coul. modifiee - 



ecran 1j60 dagon. 



200 F TTC/jour 
250 F TTC/jour 
50 F TTC/jour 
110 F TTC/jour 
250 F TTC/jour 
180 F TTC/jour 
230 F TTC/jour 
290 F TTC/jour 



DEPARTEMENT OCCASIONS GARANTIES 

Nos occasions pouvant tres souvent se renouvcller. nous vous 
recommandons de vous renseigner au prealabte par telephone 



L1BRAIRIE 

EN FRANCAIS 



Programmer an Pascal SG F 

Lb diicoLi'd'B rts de I' Applasaft 55 F 

La pratique de I'AppI* 1 1 (vol. 1) . . . 55 F 

I ryroducTian aux mlcrnordlngTaurs . . Si? F 

Program mat ion du 05D2 (2 E Edition) . £S F 

Les mic*opr-oiW55#jr!i 93 F 



T Sch n iau es d ' I nte^i x# . 
P rograrti rYi i^n du 6800 
Programmation du 7. SO 
Application*^ . 
Lb Baiic par 1b pratique 
I rM roduct ion au Basic. . 
I rrrrodijcnon au Pascal . 



. 124 F 
. 93 F 
. 124 F 
. B5 F 
. 6B F 
. S5 F 



29 rue de Clichy 75009 Paris 
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Editorial 



Contrairement a l'avis de certains sages et prophetes de mauvaise augure 
rencontres au Sicob, le numero 2 de Pom's voit le jour, et la serie ne s'arretera 
pas la ! Au debut du mois de decembre, Pom's s'est deja diffuse a 1200 
exemplaires, et des lettres nous parviennent tous les jours. Dans 1' ensemble, la 
reaction des lecteurs a ete tres sympathique et constructive. Les seules critiques 
que nous ayons recues a ce jour proviennent d'experts qui n'ont "rien appris" en 
lisant Pom's. Nous esperons qu'ils voudront bien partager leur savoir-faire en nous 
envoyant des contributions. A vos claviers ... 

Nous n'avons pas pu faire tenir toutes les contributions dans ce numero, et 
certaines nous sont parvenues trop tard pour que nous puissions les imprimer dans 
de bonnes conditions. Nous remettons done au numero 3 de Pom's l'article de 
Jean-Louis Meillaud sur 1 ' apprentissage de 1 ' assembleur . Rassurez-vous , il existe; 
nous l'avons enfin recu. En attendant, vous pourrez demarrer votre initiation a 
1' assembleur avec "La pratique de 1' Apple", tome III, sorti au Sicob. De meme, 
l'article comparatif des cartes 80 colonnes devrait refaire surface au sommaire du 
prochain numero. Vu les difficultes que nous avons pour tout sortir dans les 
delais, nous prenons la precaution de ne pas vous soumettre le futur sommaire, 
en vous laissant la surprise ! 

Nous terminons l'annee 1981 avec 1' apparition de 1' Apple ///; il ne s'agit pas la 
d'un premature ! Nous vous le presentons sans tarder. II y a aussi du nouveau dans 
notre disquette d ' accompagnement : elle est maintenant bootable indif feremment en 
DOS 3.2 ou DOS 3.3- Par contre , elle n'est pas copiable par le programme de copie 
du Master; e'est une consequence inevitable de la procedure utilisee cette 
fois-ci. Cela ne vous empeche pas de copier les fichiers qui vous interessent sur 
d'autres disquettes. 

Gilles Mauffrey a realise un joli programme permettant de copier le programme 
Pascal de la disquette Pom's numero 2 sur une disquette Pascal. II nous expliquera 
dans le numero 3 (fin mars) comment il transpose un programme Pascal sur une 
disquette normale, et vice-versa. Comme vous pouvez le voir, Pom's est a la pointe 
du progres. 



Bonne lecture - GOTO 1982 avec tous nos voeux ! 

Herve Thiriez 
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aux-Belles - 75483 Paris Cedex 10 - Tel. (1) 238.66.10 - Diffusion aupres des boutiques informatiques et libraires : Editions du PSI : 
41-51, rue Jacquard - BP 86 - 77400 Lagny - Tel. (6) 007.59.31. 
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Guerin, Guy Mathieu, Annie Mauffrey, Jean-Louis Meillaud, Gerard Michel, Bruno Rives, Herve Thiriez. 
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Pour mieux choisir 
"votre" ordinateur 
et pour mieux I'utiliser. 




I'j L ORDINATEUR 
11— ij IIMDIVIDUEL 

Vous y trouverez : 

L'actualite et les tendances de I'informatique individuelle • des galops et des bancs 
d'essai des principaux materiels • des panoramas et des tests comparatifs • le point 
des grandes manifestations internationales • des articles d'initiation • des syntheses 
• des programmes • des interviews "exemplaires" • des conseils • des idees 

• des astuces. 

I'l LORDIIMATEUR 
II— Jj IIMDIVIDUEL 

chez votre marchand de journaux 

41 rue de la Grange aux Belles - 75010 Paris 



Faites le menage dans la memoire 



GERARD MICHEL 



Si vous programmez en BASIC Applesoft des applications impliquant de nombreux 
traitements de chaines de caracteres, vous avez sans doute constate que la zone de 
stockage de ces chaines se trouve souvent trop vite saturee. En effet, si vous 
changez en cours de programme le contenu d'une chaine A$ (par exemple, A$="NOM" 
devient A$="PRENOM" ) , le nouveau contenu est stocke en memoire sans elimination 
prealable de son predecesseur . En consequence, de nombreux caracteres devenus 
inutiles viennent encombrer la memoire et en provoquent bientot la saturation. 

Ainsi que l'explique le Manuel de Reference, Applesoft dispose d'une routine 
assurant automatiquement 1 ' elimination des donnees inutiles lorsque 1 'accumulation 
des chaines de caracteres menace de 'deborder' sur d'autres zones de memoire 
actives. Ce nettoyage peut egalement etre impose par le programme au moyen 
d ' instructions du type "X=FRE(0)"; vous decidez alors de proceder a 1' operation a 
1' issue d'une phase de traitement comportant de nombreuses manipulations de 
chaines . 

La routine de nettoyage est la meme dans les deux cas et repose sur le principe 
suivant : 

1. Explorer la zone de stockage, trouver la premiere chaine 'active' et 
la placer juste sous HIMEM. 

2. Explorer de nouveau la zone de stockage, trouver la deuxieme chaine 
'active' et la placer juste sous la precedente ... et ainsi de suite. 

Quiconque a eu recours a cette routine a pu constater la lenteur de 1' operation. 
Heureusement , un article paru dans le numero de Janvier 1981 de Call-A . P . P .L . E . 
ouvre des horizons nouveaux pour les 'victimes' du FRE(O), et il nous parait 
indispensable d'en f aire benef icier tous ceux qui n'en auraient pas eu 
connaissance . 

L'auteur y presente un programme en assembleur, destine a remplacer la routine 
Applesoft. Ce nouveau programme ne trouve pas seulement une chaine active unique a 
chaque exploration de la zone de stockage, mais en trouve un nombre N, defini par 
1 ' utilisateur , N devant avoir une valeur comprise entre 1 et 127. Bien sur, plus N 
est grand, plus le nettoyage s'effectue rapidement. Toutefois, le traitement des 
chaines impose de reserver une place memoire egale a 6xN octets et situee au- 
dessus de la routine elle-meme. Le choix de la valeur de N doit done resulter d'un 
arbitrage entre rapidite de traitement et ' encombrement ' . 

Dans la version du programme assembleur baptisee FRE(16), dont la liste est donnee 
ci-apres, N est fixe a 16, mais nous vous presentons egalement, sous 1 ' appellation 
FRE(64), le code hexadecimal pour N egal a 64. En tout etat de cause, vous pourrez 
constater que le gaih de temps resultant du passage de FRE(O) a FRE(16) est dans 
la majorite des cas beaucoup plus appreciable que celui resultant du passage de 
FRE( 16) a FRE(64) . 

Par ailleurs, la routine telle qu'elle apparait ici est destinee a la meme 
utilisation que 1 ' instruction "X=FRE(0)". En d'autres termes, il vous appartient 
d'effectuer un "CALL 37500" en un point du programme ou l'operation de nettoyage 
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vous parait necessaire et d ' en forcer ainsi 1 'execution. 

Le programme publie dans Call -A.P.P.L.E. se rapproche plutot de l'hypothese ou le 
programme BASIC laisse a Applesoft 1' initiative du nettoyage, dans la mesure ou un 
test prealable est effectue sur la place memoire encore libre entre la fin du 
stockage des chaines et le debut de la zone de stockage des pointeurs de tableaux. 
Ainsi, le nettoyage ne s' execute que si la dimension de cette place libre tombe 
en-dessous de -1K octets. 

Ce test permet done de ne proceder au nettoyage que si celui-ci devient absolument 
indispensable. Par contre, il impose de tres frequents appels a la routine. En 
effet, si- ces appels ne se repetent pas assez souvent, Applesoft risque de prendre 
l'initiative des operations et de mettre a nouveau votre patience a rude epreuve. 

En fait, cette version du programme se prete essentiellement a des traitements 
pour lesquels l'appel de la routine peut s'effectuer a l'interieur d'une boucle 
assez 'courte' (algorithmes de tri ...). Si vous souhaitez l'utiliser dans un tel 
contexte, chargez le programme. et modifiez-le en tapant en mode moniteur "927C: A5 
70 38". 

Les quelques petits programmes presentes plus bas vous permettront de comparer 
l'efficacite des differentes routines de nettoyage. 

Remarque : quand le programme fait appel a une routine assembleur, le temps de 
traitement indique comprend le temps necessaire au chargement de cette routine a 
partir de la disquette. 



1 ) Exemple numero 1 



1 HIMEM: 37490 

10 D$=CHR (4) :DIM Z$(500) 

20 FOR 1=1 TO 500 : Z$(I) =STR$ (I) : PRINT I:IF INT( II 1 00 ) =1/ 1 00 THEN X=FRE(0) 
30 NEXT: END 



a) Execution du programme tel quel. 

Temps de traitement (du 'RETURN' apres RUN jusqu'a reapparition finale du curseur) 
: environ 1 minute 30. 

b) Execution du programme avec FRE(16). 
Rajout d'uneligne : 15 PRINT D$"BL0AD FRE(16)" 
Remplacement de "X=FRE(0) M par "CALL 37500" 
Temps de traitement : environ 30 secondes. 

2) Exemple numero 2 



1 HIMEM: 37490 

5 BL$=" ":F0R 1=1 TO 5 : BL$=BL$+BL$ : NEXT 
10 D$=CHR$(4) :DIM Z$ ( 1 000 ) , Y$ ( 1 000 ) , T$ ( 1 000 ) 

20 FOR 1=1 TO 50:Z$=STR$(I)+BL$:Z$(I)=Z$:Y$(I)=Z$:T$(I)=Z$:PRINT I:IF INT(I/2)=I/2 
THEN X=FRE(0) 
30 NEXT: END 
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Modification 



Temps de traitement 



927C- 

9280- 

9288- 

9290- 

9298™ 

92A0- 

92A8- 

92B0- 

92B8- 

92C0- 

92 C8~ 

92D0- 

92D8- 

92E0- 

92E8- 

92F0- 

92F8- 

9300- 

9308- 

9310- 

9318- 

9320- 

9328- 

9330- 

9338- 

9340- 

9348- 

9350- 

9358- 

9360- 

9368- 

9370- 

9378- 

9380- 

9388- 

9390- 

9398- 

93A0- 

93A8- 

93B0- 

93B8- 

93C0- 

93C8- 



A Programme tel quel 


plus de 5 minutes 


B Raj out de: 15 PRINT D$"BLOAD FRE(16) 
"X=FRE(0)" devient "CALL 37500" 


40 secondes 


C Idem mais avec FRE(64) 

— — — — — — j 


30 secondes 


D Programme A mais sans "X=FRE(0) M en ligne 20 
(nettoyage automatique d' Applesoft) 


45 secondes 


E Programme D mais avec: 15 Print D$"BL0AD 

FRE( 16). TEST" et ajout de " CALL 37500" en 20. 
On teste done la place memoire libre 


12 secondes 


F Idem, mais avec la version FRE(64) 


9 secondes 



4C 
6E 
94 
70 
5F 
F0 
A6 
DO 
9 3 
03 
6E 
BA 
Bl 
Bl 
5E 

8 A 
OA 
02 
04 
FO 

5E 
85 
1A 
14 
68 
6E 
19 
94 
13 
9D 
94 
54 
9D 
D6 
A5 
34 
5F 
94 

9 
60 
F0 
85 



E5 
94 
A5 
90 
DD 
90 
94 
12 



3 1 

A 6 



9D 
A5 
02 
60 
F7 
6F 



86 92 
C9 04 
A6 73 
A9 55 
C5 52 
F7 A9 
6A 85 
04 C5 
F0 F3 
85 81- 
D0 07 
93 85 
5E A A 
5E 65 
65 95 
30 DO 
69 05 
E6 5F 
CS 94 
F3 Bl 
30 03 
F0 F8 
19 C5 



70 
A5 
19 
DO 
13 
F2 
9D 
94 



BD 33 
94 9D 



94 
IB 



1A 9D 
94 AS 



8F 
E6 
A2 
38 
AS 



E5 
90 
AS 
A2 
F0 
7 
5E 
6B 
85 
AS 
C5 
5E 
C8 
94 
85 
C8 
65 
A 6 
F0 
5E 
4C 
85 
61- 
B0 
1A 
CS 
A2 
94 
86 
11 
BD 
94 
52 
E4 
AS 
14 
5E 
94 
18 
5F 
IF 
AS 
7 



[ Ffcg W) 

01 
74 
00 
05 



86 
F0 
94 
94 
6D 
86 
Bl 



Bl 
5E 
51- 
BA 
3 
A9 
18 
C8 
E6 
ED 
6D 
2. 1 
AS 
IB 
94 
34 
9D 
94 
IB 
19 
94 
9D 
A 5 
65 
A6 
BD 
6F 
E9 



6 
86 
85 
20 
8F 
5F 
05 
86 
A6 
DO 
5F 
5E 
94 
28 
5E 
85 
E4 
20 
05 
93 
C8 
Bl 
A5 
15 
AS 
CA 
1A 
A 2 
BD 
94 
31 
13 D 
E8 
9D 
A5 
53 
8F 
5E 
5F 
34 
FD 
00 



20 
61- 
5E 
IF 



HZ) 

E4 
20 
95 
95 
3 
AO 
08 
C8 
10 
AO 
5E 
95 
IF 
C8 
C8 
Bl 
5E 
19 
94 
1A 
CA 
FD 
3 
14 
9D 
94 
53 
E8 
13 
18 
94 
9D 
85 
AO 
94 
34 
85 



04 

85 
86 
93 
69 
6C 
12 
A9 
E4 
4C 
00 
C8 
Bl 
D3 
00 
90 
DO 
93 
Bl 
Bl 
5E 
85 
CD 
9 
E5 
AS 
14 
BD 
94 
32 
BD 
94 
90 
94 
9D 
AS 
33 
5E 
00 
A8 
94 
70 



93 DO- 


BD 


13 


94 


85 


1C 


BD 


14 


94 


93 D 8 - 


85 


ID 


88 


CO 


FF 


F0 


06 


Bl 


93E0- 


1C 


91 


6F 


90 


F5 


BD 


33 


94 


93E8- 


29 


04 


4A 


A8 


C8 


13 D 


53 


94 


93F0- 


85 


1C 


BD 


54 


94 


85 


ID 


AS 


93 F 8- 


61- 


91 


1C 


AS 


7 


C8 


91 


1C 


94 0- 


CA 


CA 


10 


B8 


A 2 


IF 


A 9 


00 


94 08- 


9D 


34 


94 


9D 


14 


94 


CA 


10 


9410- 


F7 


4C 


91 


92 


FF 


F F 


FF 


F F 


UH- 


6ft 















Enseignement Assiste par Ordinateur pour Ordiaateurs 
MOPPE D'ANTICO - SILEX - ITT 2020 - APPLE II - APPLE II 
EN FRANC AIS ^ m ^^ 



SILEX 
COURS 
APPLESOFT 



de BASIC 



- APPLE II ( + Carte APPLESOFT ) r 

- APPLE II + J 

- APPLE III 



PALSOFT |- 
SILROE |- 
( Sur JISii'JETTES 5 1/4 Pouces 



MOPPE D'ANPICO, ( + APPLESOFT en ROS 
ITT 2020 ( + Carte PALSOFT 
SILEX ( de Leanord ) 

DOS = DOS 3.3 - Memoire = 48 K. ) 



1/ COM R5 1 £ BASIC ) - En Frajisais 



TRES PROGRESSIF - Ke necessite aucune connaissance prealable en 
inf oroatique. _ 
Pour debutants et non debutants, TOUT Y EST EXPLIQUE. 
20 Lecons - Environ 10 h 12 Heures de cours. 
80 Exercices conraentes, expliques, resolus, executes,, 
140 Questions notees sur 20, par groupes, - Reponses aux questions, 
GRAPHISKE BASSE et HAUTE RESOLUTION, 

Defilement automatique du Cours avec arrets et reprises possibles 
' en cours de lecon, 
De nombreux exercices peuvent etre reexecutes autant de fois que 
vous le souhaitez, Ainsi, vous pouvez obtenir les men-es re'sultats 
ou des resultats differents en faisant varier les donnees d'en'tree. 



M A LA PIK DE 

2/ COURS 2 ( BASIC + ) 



CE 



COURS , 
En Frajj^a 



VOUS SAUREZ PROGRAMMER. | 



o 



. Philosophie generale identique a celle du COURS 1 ( BASIC 
. 25 Lecons - 12 Heures de cours minimuzu 
,.. 120 Exercices commentes, expliques, resolus, executes, 

■ 160 Questions notees sur 20, par groupes - Reponses aux questions, 

' COiN'TRATS-LOCATIOft du COURS BASIC ^ur; 

. Etablissements d 'Enseignement, 
, Etablissements de Formation payante, 

■ Centre de Recherches, Laboratoires, Centre d'Essais, 
, CoEiti; d 'Entreprises* 



?Ert C comprise ) 

. ■ I { EAilC ) FP, 

. CCURS ? { BASIC + J 690 FF. 

Prix donnes a titre indicatif, pouvant 
Stre !jiodifi(5a sans preavis. 



:0 



REV 
CON 



N D 



U R S, 
E Z - 




ANDR£ PIXiT 
91000 EViTr-CO'lHCO'JRCNtVES 



Ocz)Ca 
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5k 




iMAAAL 

informotique 



vous apporte 

ASSISTANCE et CONSEIL 

pour la 

MISE EN SERVICE 

de votre 

1 er MICRO-ORDINATEUR 

• Realisation de logiciels specifiques 

• Organisation de sessions d'initiation a 
I'ordinateur et de formation a I'utilisation 
des programmes sur APPLE II et Goupil 

• Location de materiel 
courte ou moyenne duree 



Configuration 


Week-end 


1 rB Semaine 


Semaine sup. 


Apple II 48 K/ Floppy/ mon. 
Apple II 48 K/2 Floppy/mon. 
Apple II Pascal 2 Floppy 
Imprimantes 


350 F H.T. 
450 F H.T. 
550 F H.T. 


700 F H.T. 
900 F H.T. 
1 100 F H.T. 
5 % du P. Vte 


400 F H.T. 
500 F H.T. 
600 F H.T. 
3 % du P. Vte 



• Contrats d'entretien de materiel 




tipple et goupil 2 



* Aide au choix de logiciels standards 



Demandez une demonstration de nos Logiciels Stan- 
dards Interactifs « Serie S » pour APPLE : 
(Tous compatibles entre eux et avec VISICALC) 

• SUPER-GENEFICHE version PRO I65 % de capacite stipple- 
mentatre sur un APPLE 64 K, et de nombreuses extensions 
nouvelles) 

• S/FACTURE (pour la facturationj • S/ETIOUETTE [pour le 
mailing) 

• S/COURRIER Ipour le courrier personnalise et le traitement 
de texte) 

• MODIFICHE (utilitatre de transformation desficruers) 



informotique 

1 a 5, rue Gutenberg 
75015 PARIS (M° Javel) 
tel. : (1)577-59-39 



IIBLOAD FRE ( 64 ) 












:icall 


-1 


51 














*927C t 9417 














927C- 


4C 


86 


92 


E5 










9230- 


6E 


C9 


04 


90 


1 


60 


20 


04 


9288- 


94 


A6 


73 


A 5 


74 


86 


6F 


85 


929 0- 


70 


A9 


IB* IT 

55 


A2 


00 


85 


5E 


86 


9298- 


51- 


C5 


52 


F0 


05 


20 


IF 


93 


92 AO- 


F0 


F7 


A9 


07 


85 


8F 


A5 


69 


92 A 8- 


A6 


6A 


85 


5E 


86 


5F 


E4 


6C 


92B0- 


DO 


04 




6B 


F0 


5 


2 


12 


92 13 8- 


93 


F0 


r 3 


85 


94 


86 


95 


A r\ 

A9 


92C0- 


03 


85 




A 5 


94 


A 6 


95 


E4 


92C8- 


6E 


DO 


7 


C5 


6D 


DO 


03 


4C 


92D0- 


BA 


93 


85 


5E 


86 


5F 


AO 





92D8- 


Bl 


5F. 


A A 

AA 


C8 


Bl 


5E 


08 


C8 


92i=:o~ 


Bl 


5E 


65 


94 


85 


94 


C8 


Bl 


92E8- 


5E 


65 


9 j 


85 


95 


28 


1 


D3 


92F0- 


8A 


30 


DO 


C8 


Bl 


5E 


AO 


00 


92F8- 


OA 


69 


ts in* 

b 


65 


5E 


85 


5E 


90 


93 0- 


02 


E6 


5F 


A 6 


5F 


E4 


95 


DO 


93 8- 


04 


C5 


9^ 


F0 


BA 


2 


IF 


93 


9310™ 


F0 


F3 


B 1 


5E 


30 


05 


C8 


Bl 


93 :l 8- 


5E 


30 


03 


4C 


A9 


93 


C8 


Bl 


9320- 


5E 


F0 


1- 8 


85 


18 


C8 


Bl 


5E 


93 28- 


85 


19 


L5 


6F 


C8 


Bl. 


5E 


85 


9330- 


1A 


E5 


/ 


B0 


E6 


AS 


19 


CD 


93 38-- 


14 


94 


A 5 


1A 


ED 


15 


94 


90 


9340- 


68 


A 5 


.1.9 


C5 


6D 


A 5 


1A 


E5 


9348™ 


6E 


90 


DO 


A2 


81 


CA 


CA 


A5 


935 0- 


19 


DD 


13 


94 


A 5 


1A 


FD 


14 


93 58- 


94 


90 


1- 2 


86 


IB 


A2 


03 


BD 


9360- 


13 


94 


VD 


1 1 


94 


BD 


14 


94 


9368- 


9D 


12 


94 


BD 


94 


94 


9D 


92 


9370- 


94 


BD 


93 


94 


9D 


91 


94 


BD 


9378- 


14 


95 


9U 


12 


95 


BD 


1 3 


95 


938 0- 


9D 


11 


VD 


E4 


1 B 


E.8 


E8 


90 


9388- 


D6 


A6 


1 b 


A 5 


19 


9D 


.1.3 


94 


939 0- 


A 5 


1A 


9L) 


14 


94 


A IE* 

A 5 


18 


9D 


93 98- 


94 


94 


A — 


5E 


9D 


13 


95 


A 12" 

A5 


93 A 0- 


5F 


9D 


•1 /I 

1 4 


95 


A I"" 


8F 


9D 


93 


93 A 8- 


94 


A5 


or 


18 


65 


5E 


85 


5E 


93B0- 


90 


02 


fc.6 


5F 


A 6 


5F 


A 





93B8- 


60 


60 


A 2 


79 


BD 


94 


94 


A8 


93 C 0- 


F0 


F7 


38 


A 5 


6F 


FD 


94 


94 


93 C 8- 


85 


6F 


A5 


70 


E9 





85 


70 


93D0- 


BD 


13 


94 


85 


1C 


BD 


14 


94 


93D8- 


85 


ID 


88 


CO 


FF 


F0 


06 


Bl 


93E0- 


1C 


91 


61- 


90 


F5 


BD 


93 


94 


93 E 8- 


29 


04 


4 A 


A8 


C8 


BD 


13 


95 


93F0- 


85 


1C 


BD 


14 


95 


85 


ID 


A 5 


93 F 8- 


6F 


91 


1C 


A 5 


7 


C8 


91 


1C 


94 0- 


CA 


CA 


10 


B8 


A 2 


79 


A9 


00 


94 08- 


9D 


94 


94 


9D 


14 


94 


CA 


10 


9410- 


F7 


4C 


91 


92 


FF 


FF 


FF 


FF 



) 
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La lecon de calcul 



ANNIE MAUFFREY 



L'objectif de ce programme est d'initier et d'entrainer vos enfants a la 
multiplication, en la presentant comme a l'ecole. Le programme demande d'abord 
s' il doit fonctionner en mode demonstration (initiation) ou si 1 'utilisateur fait 
lui-meme la multiplication ( entr aineme nt ) . Dans les deux cas, 1' uti lisateur 
choisit le nombre de chiffres du multiplicateur et du multiplicande. 

En mode initiation, toutes les etapes de la multiplication sont expliquees et 
c'est 1 'uti li sateur qui est maitre du deroulement dans le temps de l'operation. II 
lui faut, en ef f et , appuyer sur une touche pour poursuivre apres chaque calcul 
elementaire. En mode entrainement , l'operation se deroule comme a la main. Seul le 
decalage d'une ligne a 1 'autre est automatique. Au bout d'un nombre de fautes (ici 
fixe a 4) le programme se branche automatiquement en mode demonstration pour 
terminer l'operation. 

Je n'ai pas cherche a optimiser la programmation , le seul objectif etant de rendre 
moins fastidieux 1 ' apprent issage de la multiplication. On pourrait etendre ce 
programme dans plusieurs directions, par exemple : multiplication de nombres 
limitation du temps de reponse, ou meme multiplication dans une autre 



10 
20 



decimaux , 

base... En revanche, c'est volontairement qu'il n 
a posteriori, ni systeme de notation, du 
de 



3 



4 



50 



60 



70 



80 



90 



lui-meme, avec plaisir et sans crainte 

DIM A%(9> ,B%(9> ,S%<18> 
REM ********************** 

* MENU * 
********************** 

HOME i PRINT "PREFEREZ-VOUSJ" 
i HTAB 5: VTAB 5 J PRINT "1-Q 
UE JE FASSE LA MULTIPLICATIO 
N?" 

HTAB 5! VTAB 1 t PRINT "2-LA 

FAIRE VOUS-MEME?" 
UTAB 15: PRINT "REPONDEZ PAR 
LE NUMERO DE LA QUESTION" X VTAB 
20 J GET A*} PRINT A*:iND% = 
VAL (A$)t IF ASC (A*) < 49 
OR ASC (A*) > 50 THEN 50 
HOME I PRINT "LE MULTIPLICAND 
E ET LE MULTIPLICATEUR SON 
T DES NOMBRES DE 1 A 9 CHIFF 
RES, A VOUS DE CHOISIR" 

VTAB 10 X PRINT "NOMBRE DE CHI 
FFRES DU MULTIPLICANDE: "XX GOSUB 
VAL <Z*> 

•rint "nombre de chi 
multiplicateur: " ;: 
gosub 54 0!lb% = val (z*> 

REM ********************** 

* CHOIX DES NOMBRES * 

* ET * 

* ECRITURE SUR ECRAN * 
********************** 



y a pas possibilite de controle 
travail de 1' enfant pour qu'il le fasse 
de jugement . 



10 



110 



12 



130 



HO 



15 



16 



FOR I - TO 18:S%(I) =:= Ql 

:faut = o: home :vs = 3:ph 

25: FOR I = LA% TO 1 STEP 



NEXT 



GOSUB 40 : IF CH 
1 THEN 110 

A%<i) = ch: 

VS = 4: VTAB 
7.X PRINT "X 
I = LB% TO 
GOSUB 400: 
1 THEN 140 

B7.ii) » ch: 
:pv 

REM 



AND I 



GOSUB '120 : NEXT I 



SJ HTAB 

; :ph = ; 

1 STEP - 
IF CH 



- LB 
FOR 



1 

AND 



54 JLA% 
VTAB 15: P 
FFRES DU 



170 



180 

19 

20 



il 



GOSUB 42 : NEXT I 
= 5: GOSUB 44 

A A A * A A A /A /ft /A /ft /ft /ft A /ft /ft /ft ^ /ft A /ft 

* CALCUL ET * 

* AFFICHAGE LIGNES * 

m A A ^ /ft .Tu /ft /ft /ft /ft /ft /ft /ft /ft /ft /ft /ft /ft /ft /ft /ft 

FOR I = LBX TO 1 STEP - IXP 

h = 25 - lb% + i:pv = py + 1 

: IF B%(I) = THEN PV = PV - 
i: GOTO 26 

IF I < LB% THEN GOSUB 630 
FOR J » LA% TO 1 STEP - 1 
MULT% = A%(J) * B%(I):S%(I + 

j) - S7.<i + j> + mult%:mult% 

~ MULT% + RET%JRET% = MULT7. 
/ 10:CH = MULT% - RET% * 10 

:vs = pv : en% = o: if indx = 

1 THEN GOSUB 580 : GOTO 220 
GOSUB 48 
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9 



220 GOSUB 420 i IF RET% - THEN 
250 

230 CH - RET%:VS - It IF J < > 1 
THEN EN% = LB% - It GOSUB 4 
80 : GOSUB 420*.PH = F'H + 1 * GOTO 
250 

240 VS - PV: GOSUB 480 1 GOSUB 420 
250 NEXT J 

260 GOSUB 650 J IF IND% = 1 AND I 
< > 1 THEN VTAB 21 i SPEED= 
80? PRINT "JE DECALE D'UN CH 
IFFRE VERS LA GAUCHE": FOR L 

= 1 TO 10 : NEXT LX SPEED= 
255 

270 RET% = 0J FOR K = 24 TO 24 - 
LA% - LB% STEP - It VTAB IS 

HTAB KJ PRINT " "J NEXT Ki NEXT 
It IF LB% = 1 THEN 360 

28 PV = PV + i: GOSUB 440 

29 REM xxxxxxxxxxxxxxxxxxxxx 

x CALCUL ET x 

x AFFICHAGE SOMME x 

SK SK SK 5K 5K 5K J4C JK 5K SK JK 5K 

300 PV = PV + 1JPH » 25:EN% = 
310 FOR I = LA% + LB% TO 1 STEP 
- i:ret% » S%(I) / 10JCH « 
S%(I) ~ RET% x 10:S%(I - 1) = 
S%(I - 1) + RET% J 
320 VS = PV{ IF I < > 1 OR S%(I) 

> THEN GOSUB 480 ♦ GOSUB 

420 

330 NEXT I? VTAB 21 J IF IND% = 1 
THEN SPEED= 80 1 PRINT "J' A 
I FAIT LA SOMME DES "}LB%:" 
LIGNES OBTENUES" J SPEED= 255 

340 IF IND% = 2 THEN HTAB 29: VTAB 
15 J FLASH : PRINT "xxxoxxxx 
"J HTAB 29 t VTAB 16 t PRINT " 
x BRAVO *"J HTAB 29 i VTAB 17 
I PRINT "xx xx xx x*x" J NORMAL 

350 IF IND% = 1 THEN GOSUB 650 t 
VTAB 20 J HTAB 15: PRINT "A 
VOUS MAINTENANT" 
360 GOSUB 650 : VTAB 23: HTAB 10 : 
PRINT "ENCORE UNE? ( O OU N 
)"J : GET B$: IF B* = "O" THEN 
30 

370 IF B* < > "N" THEN 360 
380 END 

390 REM xxxxxxxxxxxxxxxxxxxxx 
x x 
x SOUS-ROUTINES * 
x x 

XXXXXXXXXXXXXXXXXXXXX 

400 REM xx CHOIX CHIFFRE xx 

410 CH - INT ( RND (1) x 10): RETURN 

420 REM xx AFFICHAGE xx 

10 Pom's 



43 PH = PH - i: HTAB PH + EN%: VTAB 

vs: print ch: return 

44 REM xx AFFICHAGE LIGNE xx 
450 VTAB PV: FOR I - 24 - LA% - 

LB% TO 24: HTAB i: PRINT 
J : NEXT I J RETURN 

46 REM xxxxxxxxxxxxxxxxxxxx 

x TEST x 

5K 5K )(C 5K 5K JK 5iC JK JK 5K 5tC 5K 5K 5K 5K 5K ?5C )K 

47 VTAB i: HTAB PH: PRINT RET%: 

RETURN 
480 REM xxxxx TEST 

49 IF IND% = 1 THEN RETURN 

50 HTAB PH + EN% •- i: VTAB VS: GOSUB 

540 

510 IF VAL (Z*) - CH THEN RETURN 

520 FAUT = FAUT + 1 J IF FAUT > 3 THEN 
IND% = i: VTAB 21 : SPEED= 40 
: PRINT "VOUS AVEZ FAIT QUAT 
RE FAUTES "{ VTAB 23: HTAB 7 
: PRINT "JE VAIS FINIR VOTRE 
MULTIPLICATION":: SPEED= 25 
5: RETURN 

53 GOTO 50 

540 REM xxxxxxxxxxxxxxxxxxxx 
x ENTREE ET x 

x ECRITURE RESULTATx 

W W %J/ W W ty \Lf \Lf \Lf VU \u \u yjy \JJ \ir \ir \jy yjj ijj \jy 
' ■ v ^ft /ft /ft /ft /ft /ft /ft /ft /ft JTTfc /ft /ft /ft 

550 GET Z* 

560 IF ASC (Z$) < 48 OR ASC <Z 
t) > 57 THEN 55 

57 PRINT Z$: RETURN 

58 REM xxxxxxxxxxxxxxxxxxxx 

x EXPLICATIONS x 

590 HTAB 29: VTAB 6: PRINT SPC( 

8): HTAB 29: VTAB 9: PRINT SPC( 
10 ) 

600 W = A%(J> x B%(I): HTAB 29: VTAB 

6: print b% ( i ) : "X" : a% < j > : " : = 

"JW: HTAB 29: VTAB 9: PRINT 

ut"+" :mult% - w:"^" ;mult% 
610 htab 29: vtab 12: print "je 
pose " :ch: htab 32: vtab is: 
print "et": htab 29? vtab 1 
8: print "je retiens "jretx 
620 gosub 650 : vtab 21 : print "p 
our que je continue, ": vtab 
23: htab 7: print "appuyer s 
ur une touche": get a$: return 

630 REM xx TRACAGE DE .♦♦ xx 
64 FOR K = 1 TO LB% - It HTAB 2 

5 - k: vtab pv: print "♦": next 
k: return 

650 REM xx EFFACE BAS ECRAN xx 
66 FOR H - 1 TO 40 : POKE 1615 + 

H,160: POKE 1871 + H,160{ NEXT 

: RETURN 

n° 2 



Banc d'essai d'utilitaires de documentation 



HERVE THIRIEZ 



1. Presentation generale. 

Dans cet article, nous nous inter essons a des utilitaires de mise au point et 
documentation de programmes. Toutes les semaines, de nouveaux utilitaires arrivent 
sur le marche. Nous nous limiterons en regie generale a 1' analyse de ceux ayant 
deja atteint un certain niveau de diffusion ou, le cas echeant, d'un interet tel 
qu'il faut les faire connaitre le plus rapidement possible. 

Les trois utilitaires retenus pour cette analyse sont, dans l'ordre alphabetique , 
Apple Doc, Dakin, et le DOS Tool Kit, qui permettent tous trois la reference 
croisee de variables, c'est-a-dire la liste des numeros d ' instructions dans 
lesquelles chaque variable est citee. Cet article fait suite a ceux par us dans 
POM'S No 1 au sujet des progiciels PLE et CRAE. 

Les utilitaires ont ete compares a l'aide d'un petit programme servant a imprimer 
une par une des adresses sur des enveloppes . Dans le cas d' Apple Doc, la liste et 
les references croisees de variables et de numeros d ' instruction seront fournies a 
titre d ' illustration. Suivent les references croisees fournies par Dakin. 



2. Apple Doc. 

Ce progiciel possede quatre fonctions principales : 

! sur tout 

! ou partie 

! du programme 

! concerne 



. reference croisee des noms de variables 

- reference croisee des numeros d ' instruction 

. liste de programme 

. recherche et modification eventuelle de chaine 



Apple Doc fonctionne aussi bien en DOS 3-2 qu'en 3.3- H suffit pour passer a la 
version 3-3 de MUFFINiser la version anterieure. 

Apple Doc se distingue par la possibility de definir, et memoriser eventue llement , 
une description en toutes lettres de la signification d'une variable ou d'une 
ligne. Celle-ci apparait alors dans la reference croisee, comme nous pouvons le 
voir dans la liste de notre petit programme de demonstration. 

Dans la reference croisee de variables, Apple Doc fait apparaitre le nombre 
d' indices de chaque tableau, alors que Dakin se contente de faire la distinction 
entre variables indicee.s ou non. 

L'interet principal d'Apple Doc reside dans le fait qu'il fonctionne sous la forme 
de fichiers EXEC. II arrive sou vent que 1 ' on desire utiliser les fonctions d'un 
tel progiciel pendant la mise au point d'un programme; avec les fichiers EXEC, il 
est possible d' utiliser Apple Doc pendant que le programme a documenter reside en 
memoire . 

L ' inconvenient majeur d'Apple Doc, en ce qui me concerne, est la mauvaise presen- 
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tation des resultats : les 80 colonnes de l'imprimante sont mal utilisees par la 
reference croisee; il n'y a pas un bon remplissage de la ligne. Mais ce n'est pas 
visible sur le court programme documente a titre d'exemple. Le resultat est plus 
long et moins agreable a lire que celui obtenu avec Dakin, surtout si 1 ' on 
n' utilise pas la possibilite d'associer une definition a chaque variable ou numero 
de ligne. 

Cet inconvenient peut etre tourne en modifiant les programmes d 'Apple Doc, mais il 
me semble plus equitable, lors de la comparaison de programmes, 'de comparer les 
versions sous lesquelles ces programmes sont commercialises, et non telles que 
l'on peut les ameliorer . 

Remarque sur Apple Doc : Apple Doc e erase en partie les zones memoir e utilisees 
par le PLE et CRAE. Apres avoir utilise Apple Doc, il faut done recharger ces deux 
utilitaires. Vous pouvez creer un fichier EXEC a cet effet, qu'il suffira 
d'appeler apres avoir travaille avec Apple Doc. 

3. Dakin. 



Le point commun entre Apple Doc et Dakin est 1' existence de programmes destines a 
etablir les references croisees de lignes et de variables, et la liste d'un 
programme. A part ces fonctions, Dakin apporte de nombreux autres services, de 
qualite et d'interet tres inegaux. 

II y a deux disquettes Dakin vendues ensemble dans la version DOS 3-2. La premiere 
est plus ancienne, ce qui explique 1' existence du programme TEXT FILE COPY, alors 
que le COPIER (qui se trouve sur l'autre disquette) fait tout et mieux. 
Malheureusement , Dakin ne marche en DOS 3.3 ni sous BASICS, ni transforms^ par 
MUFFIN. II vous reste, si vous passez au DOS 3-3, a acheter la version 3-3, ou a 
decouvrir dans diverses revues ou par vous-meme les modifications necessaires. 

Voici la description des diverses possibilites de Dakin, au-dela de la 
documentation de programme : 

PEEKER : analyse du contenu d' enregistrements selectionnes d'un fichier a acces 
direct. On peut se construire sans effort un petit programme Basic aussi puissant 
et nettement plus flexible d ' utilisation . 

CRUNCHER : le plus original et le plus utile des programmes du Dakin. Cet 
utilitaire sert a comprimer au maximum un programme en otant les remarques et en 
regroupant les lignes r attachables . 

TEXT FILE COPY : inutile. 

PROMPTER : exemple de routine d' input generalise. De toute facon, chaque 
utilisateur a interet a construire la routine correspondant a ses besoins propres.-. 
CALCULATOR : exemples de calculs a grande precision. 
DISKETTE COPY : inutile. 
SCREEN PRINTER : copie d'ecran texte. 

ARRAY EDITOR : editeur de fichier sequentiel . Peut etre interessant, en 
particulier pour analyser et modifier un fichier EXEC. 

COPIER : copie de fichier de quelque nature que ce soit. II vaut mieux utiliser 
FID, fourni avec la disquette Master du DOS 3-3, et disponible en 3.2 (par 
DEMUFFIN) . 

PATCHER : inutile. 

En matiere de documentation de programme, Dakin est tres lent, compare a Apple 
Doc, surtout dans la version DOS 3.2. En effet, il faut dans ce cas pour 
l'utiliser booter, ou faire "RUN UT0001 " ou "RUN UT0002" suivant le service 
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demande. Afin de lister un programme et d'en obtenir la reference croisee de 
lignes et de variables, il faut, dans l'ordre : 

. charger le menu de la disquette 1 de Dakin 

. charger le programme de liste 

. charger le programme a documenter 

. recharger le menu pour arreter le travail sur la disquette 1 

. charger le menu de la disquette 2 pour appeler le programme de reference 

croisee de variables 
. charger le programme de reference croisee de variables 
. recharger le programme a documenter 

. recharger le menu pour appeler le programme de reference croisee de numeros 
de lignes 

. charger le programme de reference croisee de numeros de ligne 
. recharger le programme a documenter 

. et, si on veut terminer sans utiliser le RESET, recharger le menu pour lui 
dire que l'on a fini. 

Par comparaison, avec Apple Doc, le programme a documenter est charge une fois 
pour toutes. On execute alors consecutivement EXEC LISTER, EXEC VARDOC et EXEC 
LINEDOC. Un gain de temps gigantesque ... 

Remarques sur le CRUNCHER : cet utilitaire elimine seulement les remarques si 
elles sont separees et correspondent a un numero de ligne non reference par un 
GOTO ou GOSUB. Pour une remarque referencee, il restera (heureusement ) le numero 
de ligne et REM. Le REM demeure aussi quand la remarque etait incorporee dans une 
sequence d ' instruct ions separees par des 

Limitations de Dakin : 

tres lent pour la documentation, surtout en DOS 3.2. En DOS 3-3, tout se trouve 
sur une disquette unique. 

le LISTER n'est pas sur la meme disquette que les autres programmes de 
documentation en DOS 3.2. 

l'ecriture des dates n'est pas libre; il faut absolument respecter le mode 
americain d'ecriture des dates, sauf si l'on se trouve dans les douze premiers 
jours du mois ! 

. il faut rentrer les parametres de l'imprimante a chaque execution. 

certains programmes ne peuvent imprimer un nom de programme different de celui 
sous lequel il est memorise sur disquette. 

Limitation conjointe de Apple Doc et Dakin : pour la reference croisee de 
variables comme de numeros d ' instruction, ces deux programmes ignorent tout ce qui 
est consecutif a un DATA, sous le meme numero d' instruction. On peut le constater 
sur notre exemple a l'aide de la ligne 150 : ni les variables, ni la reference a 
1 ' i nstr uc ti on 60 n' apparaiss ent dans les references croisees. 

4. DOS Tool Kit. 



DOS Tool Kit ne se limite pas a la documentation de programmes. II comporte en 
fait trois parties fort differentes : 

a) 1' assistance a la programmation avec des fonctions de renume rotation (toutes 
les possibilites du RENUMBER, moins le bug classique), la numerotation automatique 
en option, une fonction de compression de remarques, divers gadgets et une refe- 
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rence croisee de variables. 

b) un generateur de caracteres haute resolution tres flexible, permettant entre 
autres de superposer un texte quelconque a des images haute resolution. 
Passionnant et tres riche. 

c) un assembleur-editeur que nous n'avons pas eu le temps de tester, mais dont on 
ne nous a dit que-du bien a ce jour. 

L' assistance a la pr ogrammation fournie par DOS Tool Kit suppose que celui-ci 
reside en memoire en permanence durant la mise au point d*un programme Applesoft. 
Ne pouvant cumuler, je prefere franchement utiliser a cet effet le P.L.E. et le 
C.R.A.E. dont les services en matiere d' assistance a la programmation me semblent 
sensiblement plus utiles. 

Ceci n'enleve rien a l'interet des autres possibilites de ce progiciel, mais nous 
debordons avec le generateur de caracteres haute resolution et l'assembleur 
editeur le theme qui nous interesse dans cet article. 



5. Conclusion. 



Pour ma part, j 'utilise Apple Doc en documentation pendant la mise au point des 
programmes. Dans cette phase, il vaut mieux gagner du temps qu' economiser le 
papier ou fignoler la presentation. Dakin me sert a produire la reference croisee 
du programme, et a le compresser en utilisant le CRUNCHER. 

* * X % X X * * X * * * X X X X X X X * * X X X X * X XX X 

IK 

X 

< v / xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 




X 
X 
X 
X 



ENVELOPPE 
4 DECEMBRE 1981 



10 GOTO 150 
2 Z* * "" 

30 GET R*i IF ASC <R*) = 13 THEN RETURN 

40 IF ASC (R*) < 32 OR ASC <R*> > 9 THEN 30 

50 PRINT R*}JZ* = Z* + R*J GOTO 30 

60 TEXT J HOME J FOR L = 1 TO 61 PRINT N$(L) TAB ( 13)": "R*< L) J i HTAB 151 

GOSUB 20 1 IF Z* < > "" THEN R*(L) Z* 
70 PRINT X PRINT J NEXT { INVERSE : PRINT "ENREGISTREMENT CONFIRME" } ♦ NORM; 

i INPUT " t "JR*: IF LEFT* <R*,1) < > "0" THEN 60 
80 R*(4) == R*<4) + " -■ " + R*(5):R*<5) == CHR* (13) 

90 F'RINT { PRINT "ALLUMER L ' IMPRIMANTE" ♦ GET R*JD* CHR* (13) + CHR* ( 

4)? PRINT { INPUT "ENVELOPPE LONGUE ? "}R*J PRINT D*"PR#1" 
10 IF LEFT* (R*,l) ^ "0" THEN PRINT { PRINT i PRINT 

110 FOR L. = 1 TO 4iR*(L) = LEFT* <BL*,25 + 15 x (R* = "0")) + R*(L){ NEXT 

iR*(6) = " " + R*(6) 

12 FOR L == 1 TO 9t PRINT J NEXT : FOR L = 1 TO 6: PRINT R*(L): NEXT 
130 PRINT D*"PR*0"{ PRINT J INPUT "UNE AUTRE ENVELOPPE ? " } R* ♦ IF LEFT* 

(R*,l) < > "0" THEN END 
140 FOR L = 1 TO 6JR*(L) = ""J NEXT : GOTO 60 

15 DATA NOM , ADRESSE 1 f ADRESSE 2, CODE POSTAL f VILLE , PAYS ♦ BL* = " "J FOR L - 
1 TO 6J READ N*(L)JBL* ~ BL* + BL*i NEXT J GOTO 60 
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&i ^ft 

* * 

* ENVELOPPE * 
x * 

* — >TABLE OF VARIABLESO- x 
x * 



BL» - BLANC 
110 

D* - CHR*(13)+CHR$<4) 
90 90 130 



L -• INDICE COURANT 

60 60 60 60 110 110 110 120 120 120 140 140 

N*<k) NOMS DES RUBRIQUES 
60 

R* - REF'ONSE 

30 30 40 40 50 50 70 70 90 90 100 110 130 130 

R$(x) - REPONSES AUX RUBRIQUES 

60 60 80 80 80 80 110 110 110 110 120 140 



Z* - CHAINE FOURNIE EN REPONSE 
20 50 50 60 60 

END OF VAR ♦ LIST 



3K * 

x ENVELOPPE * 

% * 

x — >TABLE OF L.N# XREFS<— x 

x x 



2 - ROUTINE DE LECTURE GENERALISES 

60 



30 
10 50 



6 - TRAITEMENT PRINCIPAL 
70 14 

150 - INITIALISATION 

10 

END OF LN# LIST 
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** THE VARIABLE CROSS REFERENCE ** 



PROGRAM NAME* ♦ ♦ENVELOPPE 
DATE. . ♦ 04/12/81 

BL* 
1 1 

D* 

90 90 130 



60 60 60 60 110 110 110 120 120 120 140 140 

N*< 
60 

R$ 

30 30 40 40 50 50 70 70 90 90 100 110 130 130 
R*< 

60 60 80 80 80 80 110 110 110 110 120 140 
Z* 

20 50 50 60 60 



** THE LINE CROSS REFERENCE ** 

PROGRAM NAME. . .ENVELOPPE 
DATE. . . 4/12/81 



20 i 60 
30 1 40 50 
60: 70 140 150 
150 i 10 




M VtV&tVCl 



LE PLUS MODULATE 

DU DISQUE 3P AU DISQUE DUR 

LE PLUS CONNU 



LOGIC IELS 



PET 2ooi 
CBAf3ooi 
CBM soot f 




, STOCKS 
. PAYE 

. F AC JURATION 
. TRAITEMENT DE TEX TE 
. COM PTABILI TE GENE RALE 
. GESTION DES COMMANDES 
. BIJOUTIER. MEDICAL. DENTISTE 
.GESTION DE FICHIERS 
.ASSURANCES 

FORMA TIP N. 

STAGES D'INITIATION 
BASIC. PASCAL. FORTRAN 



(PARTICULAR 
SCIENTIFIQUE 
GESTION 



MICRO ORDINATE UR SHOP 

SOUBIRON SA. 

9 RUE KENNEDY TOULOUSE 

TE L .21.64. 39./ 21.04. 57. 
TELEX. LPS. INF 521075 F 



100m 2 ^exposition 



DU SCIENTIFIQUE 
AU BUREAU 
D' ETUDE 



PCC 2000 

ISTC5000 



VIDEO 
GENIE 

EG 3003 



SAM 

DE PANNAGE SOUS 48 H 
REGION MIDI PYRENEES 

DU GENIE 
POUR PETITS 
ET GRANDS 



LIBRAIRI E 

.SPECIALISE 
. I N FORMATIQUE 



SHARP 

PC 1211 
MZ 80 



k DU MOINS 

:her au 
i particular 



CHOIX EN MICRO INFORM ATI QUE 



Une incursion dans les mysteres du DOS 



JEAN-FRANCOIS DUVIVIER 



Voici quelques modifications qui vous permettront de disposer d'un DOS 
personnalise , avec certaines particularities bien utiles. Ces changements peuvent 
s'appliquer indif f eremment a un DOS 3.2 ou 3-3 tnais les adresses ne sont valables 
que pour un 48 K. Dans les autres cas, vous devez retrancher a toutes les adresses 
citees la valeur hexadecimale $4000 pour un 32 K, $8000 pour un 16 K. 

1. Elimination de la pause lors d'un catalogue (lorsque celui-ci est trop long 
pour tenir dans un ecran). 

Normal: *ADA4: 16 (Poke 44452,22) 
Modi fie: *ADA4: FF (Poke 44452,255) 

Lors d'un catalogue, le DOS tient a jour dans la case memoire $B39D le nombre de 
lignes a editer avant d'effectuer une pause. Cette valeur est initialisee avec le 
contenu de l'adresse ADA4, normalement 22. Lorsqu'on 1' initialise avec une valeur 
superieure a 120, on supprime totalement la pause, le catalogue ne pouvant 
contenir que 120 lignes en DOS 3-3 et 96 en DOS 3.2. 



2. Arret du catalogue par la touche "ESC" lors d'une pause. 



Normal : 



ModifiS 



*AE39 
*BCE0 
*AE39 
*BCE0 



20 0C FD 

zone inutilisee 

20 E0 BC 

20 0C FD C9 9B DO 05 68 
68 4C 7F B3 60 



Le saut a la pause du catalogue est remplace par un saut a l'adresse $BCE0 . Le 
programme place a cette adresse attend alors qu'une touche soit appuyee et la 
compare avec "ESC". Si cette touche est differente, le catalogue est continue. 
Dans le cas ou l'on a appuye sur "ESC", le programme rend la main a 1 'utilisateur 
en effectuant un saut a la routine appelante. 



3. Affichage des programmes effaces lors d'un catalogue. 

Normal: *ADD9 : 30 4A 
Modifie: * ADD9 : EA EA 

Le DOS teste pour chaque programme un octet du "directory" afin de savoir s'il est 
efface. La modification annule le branchement conditionnel qui suit en le 
remplacant par deux instructions NOP (No Operation). Dans le cas d'un programme 
efface, une colonne a droite contiendra un caractere inverse, ce qui permet de les 
identifier rapidement . A noter que toute trace est perdue dans le directory 
lorsque le DOS a recopie un autre programme a la place de celui qui a ete efface. 



4. Bootez sur un programme binaire. 
Normal: *9E42: 06 
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Modifie: *9E42: 34 pour BRUN 
*9E42: 14 pour EXEC 



Sur un DOS normal, le programme HELLO ne peut etre qu' en BASIC. La modification 
vous permet d' avoir un programme HELLO en binaire ou sous forme d'un fichier. La 
procedure est la suivante: initialiser la disquette avec un programme BASIC HELLO, 
apres avoir fait la modification; sauver ou copier le fichier binaire (BINAIRE), 
detruire HELLO et changer le nom de BINAIRE en HELLO (RENAME BINAIRE, HELLO). 



5. Suppression du NOMON lors de 1' entree dans le DOS. 

Normal: *9DD7: 8D 5E AA 
Modifie: *9DD7: EA EA EA 

Lors de 1 ' entree a chaud dans le DOS ( 3D0G qui est equivalent a 9DBFG pour un 48 
K) ou lors de 1 ' appui sur un RESET (cas de 1 ' autostart ) , le DOS est reinitialise 
et 1 ' option NOMON est mise. La modification ci-dessus permet de garder 1 ' etat du 
MON anterieur, empechant la remise a jour de 1' octet $AA5E qui indique les 
commandes MON C,I,0 en action. 



6. Annulation de la commande I NIT. 

Normal: *A884: 49 
Modifie: *A884: 5B 

II peut etre interessant, surtout avec un DOS modifie, d ' annuler la commande INIT 
afin d'eviter de recopier le DOS sur une nouvelle disquette. D'autre part, une 
fois la commande INIT enlevee, on peut se servir d'une partie de la page $B6 afin 
d'y stocker d'autres routines. Le DOS maintient a jour un dictionnaire des 
commandes afin de pouvoir les reconnaitre (voir 1' article de C. Guerin). La 
modification change le premier "I" de INIT par un "J", caractere non accessible au 
clavier. La commande INIT ne sera alors plus reconnue. 



7. Secteurs libres a chaque commande CATALOG. 



Normal : 



Mod if ie : 



*A884: 


49 












*ADC3: 


20 


2F 


AE 








*B600: 


partie de INIT 




*A884: 


5B 












*ADC3: 


20 


00 


B6 








*B600: 




A2 


OC 


20 


4A 


F9 


A9 00 


85 


40 


85 


41 


AO 


C8 


18 B9 


F2 


B3 


F0 


0E 


OA 


90 


FB 48 


E6 


40 


DO 


02 


E6 


41 


68 18 


90 


F0 


88 


DO 


E9 


A6 


40 A5 


41 


AC 


00 


E0 


CO 


20 


DO 07 


20 


1B 


E5 


20 


2F 


AE 


60 20 


24 


ED 


20 


2F 


AE 


60 



La longueur de la routine impose de la placer en $B600 et done d ' annuler la 
commande INIT. Cette routine est appelee apres 1 ' inscription du libelle DISK 
VOLUME et avant le saut de deux lignes precedant la liste des programmes. Elle 
compte a partir des informations disponibles dans le buffer VTOC ($B3F3 a B47B) 
les secteurs disponibles puis les affiche sur ecran. Le deroulement normal du 
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catalogue est ensuite repris. 



8. Chargement du DOS modifie sur disquette. 

II peut etre interessant, une f ois que vous avez modifie votre DOS, de pouvoir en 
disposer chaque fois que vous bootez . La premiere solution consiste a construire 
un programme HELLO avec toutes les modifications que vous souhaitez. Une fois ce 
programme execute, votre DOS en RAM est modifie. 

La seconde solution consiste a initialiser une disquette avec votre DOS modifie. 
Celui-ci sera alors incorpore sur les pistes 0,1 et 2 de la disquette et 
disponible chaque fois que vous booterez. A noter que l'on ne peut charger ainsi 
la derniere modification, qui neutralise la commande INIT. 

La troisieme solution est de recopier le DOS en RAM sur les pistes 0,1,2 de la 
disquette, mais sans toucher aux autres pistes et en laissant par consequent vos 
programmes intacts. Cette methode vous permet de modifier le DOS charge sur des 
disquettes deja utilisees. II suffit pour cela de taper les lignes suivantes: 

*300: A9 9D 8D BC B5 20 C2 

B7 20 HA B7 60 
*AA5D: 09 
*AA5F: 

*AA75: C8 C5 CC CC CF (il s'agit en fait du nom du programme sur lequel 

on veut booter. S'il fait moins de 4 caracteres, 
completer avec des espaces, dont le code ASCII 
est AO). 

Le lancement se fait par 300G ou par un CALL 768 a partir du BASIC. 



Trues et astuces 



Programme mystere . . . 

Le premier lecteur qui nous fera parvenir 1 ' explication complete de ce que fait le 
programme suivant gagnera un abonnement a quatre numeros de Pom's. Ce programme 
requiert le Basic Integer en ROM, e'est-a-dire la carte Integer ou la carte 
langage . 



>LIST 

20733 CALL -936: TAB 19 * VTAB 13 

20734 DEVINETTE- ASC ( "POMS" ) * PEEK (-1823)/ PEEK ( -1595 ) *P0MS * POMS 

20735 POKE PEEK (-7782), 12J POKE PEEK (-4710), 184 
20 736 POKE 2 69, PEEK ( RND (4096)) 

20737 PRINT "POMS" 

20738 POKE POMS, POMS 

20739 POP 
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Afin de mieux 
tirer profit de toutes 
les possibility 
d APPLE, 

et de ses extensions. 
Loin des contacts 
anonymes, 
pour un rapport 
plus humain, 
des revendeurs 
reqionaux specialises 
vous proposent 
des logiciels sur mesure, 
standards, ou 
d'apprentissage. 
Un service technique 
avant et apres-vente. 
N'hesitez pas a contacter le 
revendeur le plus proche 
pour un conseil 
ou un renseignement 



qppkz 



en province 



Annecy/Faverges 

74210 

Bayonne 

64100 

Bordeaux 

33000 

Clermont-Ferrand 

63000 

Epernay 

51200 

Lyon 

69003 

Marseille 2 

13000 

Montpellier 

34000 

Nancy/Laxou 

54250 

Orleans 

45000 

Perpignan 

66000 

Rouen 

76100 

Strasbourg 

67000 

Toulon 

83100 

Valenciennes 

59300 



EUROPROCESS 

Siege social : Doussard 
(50) 44.31.12 

LE CALCUL INTEGRAL 

3, rue Aristide-Briand 
(59) 55.43.47 

BOUTISOFT 33 

9, rue de la Lande 
(56) 91.55.08 

NEYRIAL 

5, Bd Desaix 
<73) 35.02.70 

MAGENTA GESTION 

7, av. A.-Thevenet Magenta 

(26) 53.19.93 

CIRCE 

9, rue P.-Florence 
(78) 54.31.95 

ORDITEL 

Siege social : BELCODEN 
(42) 04.44.00 

IFI-MICRO INFORMATIQUE 

9-12, rue Castilhon CENTER 

(67) 58.58.?8 

SEMITEC 

69, rue Mareville 
(8) 340.43.38 

AMC 

13, rue des Minimes 
(38) 62.62.58 

MAB 

2, place de Catalogne 

(68) 34.04.46 

CONSEIL COMPUTER 

20, quai Cavelier-de-la-Salle 

(35) 63.36.06 

CILEC 

18, quai Saint-Nicolas 
(88) 37.31.61 

S I A 

Lepaillon, avenue de Brunet 
(94) 23.74.30 

MICROMEGA 

38, rue de Famars 
(27) 46.89.22 



Si cette publicite vous interesse, contactez le 
CALCUL INTEGRAL 



Applications de graphiques haute resolution 



GUY MATHIEU 



A. Quelques rappels 

Le graphique dit de "haute resolution" presente sur Apple II les caracter istiques 
suivantes : 

. 280 x 192 sans texte, ou 280 x 160 avec 4 lignes de texte. 

. 8 couleurs, dont deux noirs et deux blancs. II existe sur le marche 

des cartes permettant d'obtenir 16 couleurs en HGR mals cette option 

n'est pas compatible avec 1 'Applesoft. 
. 2 pages ecran dites HGR et HGR2 . Voir en ce qui concerne 

1 ' organisation de ces pages 1' article de J.F. Duvivier "Les 

Adresses Du Graphique" dans le No 1 de POM'S. 

Un point donne de 1' ecran ne peut avoir n'importe quelle couleur : les points des 
colonnes paires peuvent etre bleus ou rouges et ceux des colonnes impaires peuvent 
etre jaunes ou verts. Le blanc n'est qu'une illusion d'optique provoquee par des 
doublets (paires de points contigus). 

Voici un programme surprise : 

:ilist 

10 rem :coucou-couleurs 

20 HOME 

30 INPUT "COULEUR CHOISIE ? (0 A 7) "JC 

40 INPUT "X INITIAL (0 A 279) " JX0 

50 HGR I HC0L0R= C 

60 FOR X = X0 TO 279 STEP 2 

70 HP LOT X,80 + 50 * SIN ( X / 6) TO X » 80 

80 NEXT 

Vous pourrez, selon les valeurs de C et de XO obtenir du vert, du bleu, du rouge 
... ou rien du tout. Mais jamais vous n'obtiendrez du blanc. 

B. La realisation des graphiques HGR 



II existe deux grandes voies pour obtenir des graphiques HGR. 

L'une consiste a utiliser des peripheriques specifiques, avec leurs cartes 
interfaces et leurs logiciels: table a digitaliser, crayon lumineux. Nous 
n'aborderons pas cette possibilite ici. 

La seconde consiste a ecrire des programmes graphiques. II existe sur Apple II 
deux series differentes d' instructions graphiques. 

La premiere serie permet d'obtenir directement sur ecran des traits ou des points; 
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on utilise dans ce cas les instructions : 

H COL OR 
HPLOT X, Y 

HPLOT X1 ,Y1 TO X2, Y2 

La seconde serie utilise une table de "shapes", formes digitalisees et 
prealablement stockees en memoire . Outre les parametres de recherche d'une forme F 
dans une table, on utilise les instructions : 

ROT (rotation, de a 64) 

SCALE (echelle, entiers de 1 a 255) 

DRAW F AT X,Y 

XDRAW F AT X,Y 

HCOLOR 

N.B. : HCOLOR n' a pas d'effet direct sur 1 'instruction XDRAW qui dessine la forme 
dans la couleur complement aire a celle du fond: noir sur blanc, bleu sur jaune, 
etc. On voit la puissance de cette instruction: redessiner une forme en utilisant 
la meme instruction XDRAW une deuxieme f ois revient a ef facer la forme sans 
toucher a 1 'image de fond. L' e f fa cerre nt par le noir ... efface tout. 



C. Les programmes graph iques 



Qu'il s'agisse de dessin direct sur 1 'ecran ou de 1 'utilisation de shapes, les 
instructions utilisent un certain nombre de parametres (couleurs, coordonnees, 
...). Trois moyens viennent a l'esprit pour fournir au programme ces parametres. 

Le premier consiste a les introduire directement dans le programme : 
HGR 

HPLOT 10,10 TO 260,150 
trace une ligne allant de X=10 et Y=10 (proche de l'angle haut gauche) a X=260 et 
Y=150 (proche de l'angle bas droit) 

On tracera courament par cette methode un cadre, des lignes de rappel ... 
La seconde consiste a calculer les parametres par programme. Le programme: 
10 HGR 

20 X0=140 : YO=96 : R=48 

30 FOR 1=0 TO 6.28 STEP 0.1 

40 HPLOT X0 + R*C0S(I), Y0 + R*SIN(I) 

50 NEXT I 

permet de tracer par points un cercle au centre de l'ecran. 

II existe un troisieme moyen , qui consiste a passer par un artifice pour entrer en 
machine, pendant le deroulement du programme, les divers parametres. On peut pour 
cela utiliser le clavier: il suff it de decider arbit rairement qu'une certaine 
touche represente un certain mouvement, et de "lire" cette touche. On travaillera 
alors a partir d'un point de coordonnees X, Y et on calculera un nouveau point de 
coordonnees X+dX, Y+dY (dX et dY pouvant prendre par exemple , les valeurs - 1 , ou 
1, selon la touche pressee). 

On peut aussi utiliser les poignees (paddles) destinees aux jeux. Et ceci peut se 
faire de deux f aeons differentes. 

On peut transformer les valeurs lues sur les deux poignees en coordonnees. Par 
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exemple : 

X = PDL (0) * 279/255 

Y = PDL (1) * 191/255 
Les coord onnees X et Y sont alors introduites dans une instruction telle que 
HPLOT, DRAW ou XDRAW. 



On peut aussi tr avail ler comme avec le clavier en faisant mouvoir un point a 
partir de sa position actuelle, avec par exemple : 

dX = INT ( PDL(0)/100 ) -1 

dY = INT ( PDL( 1) /100 ) -1 
dX et dY prendront alors les valeurs -1 , ou 1 . 

Cette derniere methode a ete utilisee pour obtenir la carte ci-dessous. 




D. L 'utilisation des shapes 



Le mode "shape" possede plusieurs vertus. 

* Une shape meme complexe est tracee sur 1' ecran de facon apparamment instantanee. 

* Une "table de shapes" permet de disposer sur appel simple, d'un lot de formes 
classiques relativement a un probleme donne ( composants electroniques , lettres 
...)'■' 

* Les options ROT et SCALE permettent la mise en oeuvre d'effet de mouvement et de 
lou pe . 

* L ' instruction XDRAW, grace a ses possibilites d' ef f acement, permet de mouvoir 
des shapes, par exemple pour designer un point, simuler un mouvement mecanique, 
etc . 



Le programme ci-apres est destine a faire tourner une forme sur elle-meme en 
fonction de son deplacement. La disquette fournie contient la carte dessinee et 
une shape representant un mobile que l'on peut deplacer sur la carte en utilisant 
les poignees de jeu. 

Ce programme de demonstration ne permet que huit sens de deplacement et huit 
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orientations du mobile. II serait facile de generaliser. 



:ilist 



10 
2 



30 

40 

50 



60 
70 

80 



HOME 

I" I •*■■ W ^^wwwwww w w w wwwwwwww W W W 

l*Vt. rl AmAAAAAmAAAAmmA * * m m m * * 

* PROGRAMME COPIC * 

* DEPLACEMENT MOBILE * 

w V w W V W W V V V V W W V W V V ¥ W V V 

^ft &k jT* JT* jTi J** J** j** <rv j** 

himem: 36000: rem protection 
table de shapes 

D$ CHR* (4) 
PRINT D$"BL0ADM0BILE" : REM C 
HARGEMENT DE LA TABLE DE SHA 
PE 
HGR 

PRINT Df "BLOADCARTE" ♦ REM CH 
ARGEMENT DE LA CARTE 

R !:;! M )K)K)K}K)K)K)K3ft)K3K)K)K34C]K)K)K)K)K)K)K)K 

* INITIALISATION * 

in /R jt\ A jti A A A A A <tv A A A A vTv vTv A A A 



90 

:L0O 



110 

120 
130 

HO 
15 
160 
170 



ISO 
190 
201) 
210 
22 
230 



POKE 232,160 1 POKE 233,14 
ZG - 20 J ZD = 260 J ZH == 10J ZB = 

150 : REM LIMITATION DES DEP 

LACEMENTS 
Z.X = 200 J ZY = 1221 REM COORD 

ONNES POINT DE DEPART 
ZR = QJZS = 3 

ZN == 2 J REM SHAPE NO 2 - ROT 
ATION - ECHELLE 3 
GOTO 360 

REM x* LECTURE PADDLE xx 
ZP = PDL (ZP) 

ZP " INT ( SQR (ZP) / 5,5) - 
li REM DONNE A ZP LES VALEU 
RS -1,0,1 QUAND LA LECTURE D 
U PDL. ZP VARIE DE A 255 
RETURN 

REM xx TRACE MOBILE x* 
ROT== Z5 

XDRAW ZN AT Z6,Z7 
ROT- ZR 

XDRAW ZN AT ZX,ZY 



24 
250 
260 
270 

28 

29 

30 
310 
32 
330 
34 



350 
360 



370 
380 
39 
400 
410 

42 

43 



44 
450 

46 



470 
48 
490 
50 



Z6 " ZXIZ7 » ZY 
Z5 = ZR 
RETURN 

REM x* BORNES 



COORDONNEES x* 



IF ZY < ZH THEN ZY = ZH 
IF ZY > ZB THEN ZY =» ZB 
IF ZX > ZD THEN ZX = ZD 
IF ZX < ZG THEN ZX = ZG 
RETURN 

REM xx LECTURE POUSSOIR x* 
IF PEEK ( - 16287) < = 127 
THEN RETURN : REM SI ON A 
APPUYE SUR LE POUSSOIR DU P 
DL 0, ALORS Z=I (DRAPEAU) — 
> FIN 
Z = i: RETURN 

REM MX****************** 

x PROGRAMME * 
x PRINCIPAL. * 

5(C )K )K ^iC 5K )(C 5K 5IC )K 5IC 

Z = 

rot=== zr: scale- ZS 

GOSUB 230 

REM x* DEPLACEMENT xx 

GOSUB 150 J Z8 = ZP 
GOSUB 150 t Z9 - ZP 



ZP = 
ZP - 
ZX = 

z?: 



t 

1 J 
ZX 
REM 



+ 2 * Z8JZY = ZY - 2 x 
DEPLACEMENT DE 2 EN 



GOSUB 27 
IF Z8 = 1 AND Z9 = THEN ZR 

- 0: GOTO 47 
ZR = (2 * Z9 + Z8 
321 REM 1090 ET 
T LES VALEURS 0,8, 16,.., 56 A 

ZR SELON LE SENS DU DEPWfCE 
ME N T 



* Z9) x 8 + 
1100 DONNEN 



GOSUB 20 
GOSUB 330 
IF Z = THEN 
END 



410 



E. Quelques conseils pour travailler en HGR 



* HGR, contrai rement a HGR2, permet d'afficher 4 lignes en bas de l'ecran: 
commenta ires , questions a poser, etc. L'adressage de ces lignes se fait par des 
VTAB a partir de 21, et leur effacement par un HOME classique. 

* Si le programme de traitement est volumineux (plus de 6K), la page ecran HGR est 
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par tiellement occupee par le progranme. II faut alors employer HGR2. 

* Pour eviter que les variables et les tableaux ne detruisent la page haute 
resolution utilisee, il convient de placer un LOMEM juste au-dessus (soit 16385 ou 
24577 selon que 1 ' on utilise HGR ou HGR2 ) . 

* Pour eviter que les variables al phanumeriques ne detruisent les tables de 
shapes, placer un HIMEM (36000 dans notre exemple) . 

* Pour eviter les messages d'erreur quand les coordonnees sont le resultat de 
calculs, limiter par programme les dites coordonnees (de a 279 pour X et de a 
159 ou 191 pour Y). 

* Attention : HGR et HGR2 sont des instructions qui effacent l'ecran. Pour 
conserver une image en vue de la faire reapparaitre , utiliser la technique des 
POKEs (voir POM'S No 1, "Les adresses du graphique"). 

* Pour sauver une image sur disque 

. depuis HGR : BSAVE NOM, A$2000 , L$2000 
. depuis HGR2 : BSAVE NOM, A$4000, L$2000 

F. Quelques exemples de graphique haute-resolution 

N.B. En noir et blanc, ces exemples normalement tres colores se trouvent 
devalorises , 

a. Un panneau de controle avec enregistreur a trois voies (extrait d'un cours de 
regulation ) : 

- cadres par 1 ' instruction HPLOT a parametres dans le programme; 

- courbes calculees dans un systeme d 'equations di f f erentielles ; 

- aiguilles des indicateurs en shapes. 
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c. Histogramme commente. Cet histogramme a ete obtenu a partir du programme STAGE: 
statistiques d'aide a la gestion. Les textes sont obtenus par des POKEs 
directement dans la page graphique haute resolution. 



UflLEUR MfiXI : SB 




POPULflTI ON TOTfiLE 100 PERSONNES 



d. Structure de l'ordinateur Apple II (extrait d'un audio-visuel MICRO). 

Les textes sont obtenus en employant des sous-programmes de dessins de caracteres . 
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Les programmes HELLO des disquettes POM'S utilisent egalement des graphiques a 
haute resolution. A cet egard, n'hesitez pas a nous envoyer vos contributions pour 
les prochains numeros: tout est permis, meme 1' utilisati on du jeu de la vie. 
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Les limites des editeurs de texte sur Apple 



HERVE THIRIEZ 



L' Apple n'a pas ete congu au depart comme materiel de traitement de texte. 
Cependant, de nombreux utilisateurs de 1 ' inf orraatique individuelle ne peuvent 
envisager d'acheter un materiel specialise pour la redaction de leurs textes. 
Quelles sont les limitations auxquelles ils sont confrontes en utilisant un Apple, 
et dans quelle mesure peuvent- ils les tourner ? 

1. Limitations de 1' Apple. 



Dans sa configuration normale, 1' Apple II ne possede pas de clavier AZERTY et 
fonctionne sur un ecran en 40 colonnes. De plus, les caracteres minuscules et 
accentues n ' apparaissent pas naturellement sur l'ecran, et peu d ' imprimantes 
savent imprimer la totalite des caracteres accentues, quelle que soit la 
gymnastique a laquelle on se prete - mais il s'agit la d'une limitation relative 
aux imprimantes et non au processeur. 

2. Principaux logiciels de traitement de texte. 



II existe une grande variete de logiciels de traitement de texte sur Apple; citons 
les plus renommes et les mieux diffuses dans la CEE, dans l'ordre alphabetique : 
Apple Pie, Apple Writer (I et II), Easywriter, Magic Window, Superscribe, 
Super-Text, Wordstar (avec carte Z80) , Write-On. Nous nous limiterons dans notre 
analyse comparative a trois de ces systemes. 

3. Criteres d' evaluation comparative. 

Bien entendu, un certain nombre de fonctions essentielles sont assurees par chacun 
de ces logiciels, avec des commandes di verses et des temps de reponse variables. 
Ces fonctions de base sont : 

. mise a zero de la memoire 

. entree d'un texte 

. sauvegarde sur disquette 

. chargement d'un texte en memoire 

. modification du texte resident (ajouts et/ou suppressions) 
. recherche et remplacement de chaines 
. impression sous formats variables 

Nos criteres generaux d 'evaluation sont les suivants : la qualite de la 
documentation, la facilite d ' apprentissage , la commodite d'utilisation et le temps 
de reponse. Le premier tableau evalue les systemes retenus pour 1' analyse selon 
leurs principales fonctions. Le second fournit une appreciation generale selon les 
quatre criteres retenus ci-dessus. 

4. Analyse commentee de trois systemes. 



a) Apple Writer. 

Les avantages particuliers d'Apple Writer sont sa grande commodite d'utilisation, 
sa rapidite de f onctionnement et sa facilite de modification. En effet, de 
nombreux articles ont ete consacres dans diverses revues a des "patches" d'Apple 
Writer permettant de le rendre compatible avec telle ou telle carte 80 colonnes, 
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avec 1 ' impression de caracteres speciaux, ... L' article de Jean-Louis Meillaud, 
dans le prochain numero de Pom's, montrera d'ailleurs comment creer le ' c' et le 
'u'. Remarquons enfin l'existence d'un programme d ' apprentissage des commandes 
Apple Writer fourni avec la disquette d'origine. 

Par contre, au titre des inconvenients , citons 1 ' impossibilite de voir sur ecran 
comment le texte que 1 ' on redige sera mis en page : on est force de tirer un texte 
"a blanc" pour constater la mise en page decoulant des parametres de formattage 
decides au moment du lancement. Autre inconvenient : Apple Writer est lent a 
1 * impression . ■ 

Bug : quand on demande a Apple Writer de justifier un texte en utilisant la 
totalite des 80 colonnes, il deplace le dernier caractere de la ligne en premiere 
colonne : il faut done ne pas justifier de texte en 80 colonnes ! 

b) Easywriter. 

Easywriter a ete ecrit en Forth, un langage tres puissant dont nous parlerons un 
de ces jours. Easywriter permet 1 ' incorporation de marqueurs ignores a 
1 ' impression, afin de pouvoir aisement effectuer des transferts de blocs de texte. 
Le mode de stockage sur disquette d' Easywriter autorise la memorisation sur un 
systeme en DOS 3.2 de 15% de caracteres en plus par rapport sTux autres logiciels.' 
Une touche speciale fait en outre apparaitre sur 1' ecran la liste des 
instructions, ce qui facilite grandement 1 ' apprentissage des commandes. Easywriter 
etant offert en standard sur le micro IBM, on peut s'attendre rapidement a des 
versions ameliorees. 

L ' inconvenient majeur d' Easywriter reside dans 1 ' impossibilite dans laquelle se 
trouve 1 'utilisateur , si competent soit-il (Jean-Francois Duvivier a declare 
forfait), de penetrer dans le code afin d'effectuer des modifications. 

Bug : dans la version dont nous disposons, en cas de manipulation de plusieurs 
disquettes, Easywriter reecrit le catalogue au moment de la sauvegarde, sans le 
relire prealablement . Si 1 ' on a change de disquette depuis le dernier chargement, 
le catalogue de l'ancienne disquette ecrase celui de la nouvelle, et le fichier 
s'inscrit dans une zone qui etait libre sur l'ancienne disquette ! 

c) Magic Window. 

A notre avis, de tous les systemes disponibles sur le marche actuellement , Magic 
Window possede le meilleur rapport performance/prix. La grande originalite de ce 
progiciel tient a la particularity suivante : au lieu d' avoir un curseur mobile se 
deplacant ligne par ligne sur l'ecran, le systeme fournit sur l'ecran une fenetre 
se promenant dans les quatre directions a l'interieur de la page formattee pour 
1 ' impression . L' utilisateur visualise ainsi par morceaux (choisis) la page telle 
qu'elle sortira sur 1 ' imprimante . Les differents menus sont tres faciles a 
utiliser . 

L ' inconvenient majeur de Magic Window tient a 1 ' impossibilite de remplacer dans un 
texte une chaine par une autre : il faut se positionner par une fonction de 
recherche a l'endroit vise, puis modifier a la main la chaine. Nous attendons avec 
impatience la prochaine version, dans laquelle ce probleme doit etre resolu. S'il 
est tres facile de reduire la largeur de la page en cours de creation de texte, il 
est par contre mal commode de l'augmenter; il faut done prevoir de creer et 
sauvegarder un texte en 80 colonnes, et le reduire au moment de 1 ' impression , si 
1 ' on desire eventuellement 1' utiliser dans divers formats. 

d) Autres systemes. 

Nous avons commente de facon detaillee ces trois logiciels que nous connaissons 
bien, mais nous pouvons aussi vous faire part de nos impressions sur d 'autres 
systemes . 
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Wordstar 1 - - A tout seigneur, tout honneur ! Ce systeme est le plus repandu 
mondialement , du fait de son appartenance a la programmatheque CPM. II est done 
disponible sur tous les systemes micro-inf ormatiques equipes d'une carte Z80 
(Softcard) et d'une carte 80 colonnes. Wordstar comporte une grande variete de 
commandes, qui ont inspire les concepteurs de la plupart des autres systemes. 

Superscribe presente son texte en hautre resolution, ce qui permet d'afficher 70 
caracteres par ligne. II est alors possible d' avoir une vue generale du texte. A 
noter que 1 ' utilisation de la haute resolution ne porte pas atteinte a la rapidite 
de f onctionnement . 

Katexte est l'un des rares traitements de texte ecrits en Pascal, et profite 
done de la puissance de l'editeur de ce langage. Notons aussi qu'il s'agit la de 
la realisation d'une SSCI frangaise, la societe Ka. 

5 . Comparaison des commandes. 



Mode d 'evaluation : 

++ : excellent 
+ : bon 
: moyen 
D : disponible 

Nous n'avons fait apparaitre dans le tableau ci-dessous que les criteres selon 
lesquels les trois systemes differaient. 

Apple Writer Easywriter Magic Window 

Disquette protegee Non Oui Oui 

Zone memoire disponible 31 K 11 K 32 K 

Suppression de mot D 

Suppression de paragraphe D 

Capacite de stockage + ++ + 

Menu des commandes D 

Rapidite de la frappe ++ + ++ 

Rapidite des commandes ++ ++ 

Tabulation D 

Justification au centre D D 

Sauvegarde partielle D D 

Sortie en fichier texte D 

Chargement partiel D 

6. Comparaison globale selon des criteres genera ux. 

Apple Writer Easywriter Magic Window 

Qua-lite de la documentation + ++ ■ ++ 

Facilite d ' apprentissage ++ + ++ 

Commodite d ' utilisation + + ++ 

Temps de reponse ++ + ++ 

7. Conclusion. 



Initialement, seul Magic Window etait congu pour travailler avec une carte 80 
colonnes. Les versions recentes d' Apple Writer et Easywriter f onctionnent aussi 
avec des cartes 80 colonnes specif iques. Des systemes a base de clavier AZERTY 
voient le jour actuellement. Nous avons utilise pour la redaction du numero 2 le 
systeme IEF avec Apple et Olympia, cette derniere pouvant servir d' entree 
(facultative) ou de sortie. Le systeme de traitement de texte de 1' Apple ///, un 
Apple Writer tres ameliore, fera l'objet d'une analyse dans le prochain numero. 
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Un exemple de hard copy 



CHRISTIAN GUERIN 



Les imprimantes sont grosso modo de trois types principaux, selon leurs capacites 
graphiques. Certaines ne peuvent imprimer que des caracteres normaux; c'etait le 
cas le plus frequent jusqu'a ces derniers mois . D'autres, telles que 1' Epson Type 
I ou la serie OKI, sont capables d' imprimer des caracteres semi-graphiques , que 
nous decrivons dans le paragraphe suivant. Les dernieres, enfin, impriment des 
graphiques a haute resolution; c 1 est le cas de la Centronics 739, des Epson Type 
II, 82 et 100, de la Paper Tiger, de la Seikosha et de la Silentype (entre 
autres ) . 

Les caracteres semi-graphiques sont divises en six cases, 3 en hauteur et 2 en 
largeur, dont chacune peut etre noire ou blanche. II y a done 64 caracteres 
semi-graphiques possibles. L ' association de ces caracteres permet de reconstituer 
une image. 

Le programme que nous presentons ici permet d'effectuer une "hard copy" d'une des 
deux pages haute resolution de 1' Apple sur une imprimante semi-graphique du type 
OKI Microline 80. 

Vous pouvez utiliser ce programme en mode direct, ou a partir d'un autre programme 
en procedant de la maniere suivante : 

POKE 771,32 - edition de la page 1 
ou POKE 771,64 - edition de la page 2 

POKE 772,0 - mode normal 
ou POKE 772,255 - mode inverse 

CALL 768 

Ce programme est ecrit pour fonctionner avec un type de carte interface specif ique 
implantee dans le slot 1 . 

Si la commande de votre carte est differente, ou si vous ne 1 ' avez pas mise dans 
le slot 1, il suffit de modifier le sous-programme OUT en $3C0. 

Si le programme fortctionne, mais que votre imprimante ne saute pas de ligne, 
modifiez-le de la maniere suivante : 

CALL -151 

3AA : A9 OA 20 CO 03 

retour a Applesoft et sauvegarde 

Imprimante Epson 



Afin d' adapter ce programme au cas de l'Espon, il faut ajouter $20 aux caracteres 
graphiques et modifier les ordres de formattage de 1' imprimante : 

. mode condense 

. mode interligne serre 

. retour en fin de programme 
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Note de la redaction 



Ne disposant pas d'une OKI, nous n'avons pu tester ce programme. Par contre, nous 
avons pu admirer l'exemple de copie d'ecran realise par Christian Guerin sur la 
page graphique du jeu Snoggle. 



3 CALL -151 
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*xEND OF PASS 1 
*xEND OF PASS 2 
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08 




1 1 










08 




12 


DL 


EPZ 


*6 


• PnTUTFiitJ nr n f p 1 1 t n f i t r m f 


08 




13 


» 








080 




14 


PPO 


EPZ 


$FD 


'POSITION DU POINT DANS UN OCTET 


08 




15 


NL 


EPZ 


$FE 


t NUMERO DE LA LIGNE 


08 




16 


CG 


EPZ 


*FF 


t CARACTERE GRAPHIQUE 


08 




17 












* 








03 




18 




ORG 


*30 




03 




19 


* 








030 


4L05 3 


20 




J MP 


DEBUT 




n ft *"\ 

03 03 




21 










03 3 


ZU 


22 


r~i a f**- r* 

PAGE 


r*i v *t 

BYT 


*20 


t PAGE A EDITER <1=$20, 2=*40) 


no n /t 

03 0^ 





23 


jut r*i r\ r~ 

MODE 


BYT 


*0 


*0=NORMAL , $FF==INVERSE 


03 D 




2*t 


t 








no n it 

03 5 


Z b U U 3 


O IS* 

25 


r\ c Ct i it 
DE.BU 1 


JSR 


SAUT 


JSAUT DE 10 LIGNES 


03 Uo 




26 




LDA 


**38 




n o n A 
03 u A 


z u b y u j 


27 




JSR 


ESC 


♦PASSAGE EN MODE INTERLIGNE SERRE 


no n r\ 
1)3 1) D 


M 7 1 IJ 


2d 




LDA 


**1D 




3 U r 


Z U L U U J 


o o 
29 




JSR 


OUT 


♦PASSAGE EN MODE CARACTERE CONDENSE 


03 J. 2 




O fl 

3 


* 








n o 1 o 
U3 1 2 




o ^ 
3 1 


* 


DEBUT DU PROGRAMME DE HARD COPIE 


03 1.2 
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* 








n o *i ^7 
03 .L2 


m .L 


o o 
33 




LDY 


#1 




03 14 


84FD 


34 




STY 


PPO 


♦ON COMMENCE SUR LE PREMIER POINT 


03 16 


88 


35 




DEY 




♦DE LA PREMIERE LIGNE 


03 17 




36 


i 






03 17 


A9BF 


37 


OKI . 1 


LDA 


# i 191 


*1 LIGNE = 191 POINTS 


03 19 


8bFE. 


38 




STA 


NL 




03 .LB 




39 


4 

*> 








03 1 B 


a in* 1~ r\ 

ASr D 


40 


OKI . 2 


LDA 


PPO 




03 ID 


48 


41 




PHA 




•ON SAUVEGARDE LA POSITION ACTUELLE 


03 IE 


98 


42 




TYA 




03 1 r 




^3 




PHA 






UO.C 


a o n o 

AZU3 


A /I 

44 




LDX 


*3 


*3 FOIS 2 POINTS PAR CARACTERE 


03ZZ 




13 










03 ZZ 


Z 7 1 U 3 


'16 


■***■ I / **r *•**• 

OKI ♦ 3 


JSR 


ADL 




3 Z U 


Lor t. 






DEC 


NL 


♦ON PREND 2 POINTS L'UN 


0327 


O n "7 H ft **\ 

207103 


^8 




JSR 


ADL 


♦EN DESSOUS DE L' AUTRE 


032A 


E6FE 


49 




INC 


NL 




032C 


06FD 


50 




ASL 


PPO 




03 2E 


10 05 


51 




BPL 


OKI. 4 




0330 


A901 


52 




LDA 


#1 


JPUIS ON PASSE AU 


0332 


85FD 


53 




STA 


PPO 


♦POINT D'A COTE 


0334 


C8 


54 




INY 






0335 




55 


♦ 








0335 


CA 


56 


OKI ,4 


DEX 






0336 


D0EA 


57 




BNE 


OK I. 3 





32 



Pom's n° 2 



0338 




58 


+ 
* 








0338 


A5FF 


59 




LDA 


CG 




033A 


4A 


60 




LSR 






03 3B 


4A 


61 




LSR 






03 3 C 


4D0403 


62 




EOR 


MODE 


t MODE INVERSE OU NORMAL 


033F 




63 


♦ 








03 31- 


CO 28 


64 




CPY 


* !40 




0341 


D002 


65 




BNE 


OKI, 5 


JUNE SEULE LIGNE DANS 


0343 


29 3 


66 




AND 


*3 


JLE DERNIER CARACTERE 


0345 




67 


• 








0345 


0980 


68 


OKI. 5 


OR A 


#*80 


jles CARACTERES GRAPHIQUES doivent 


0347 


20C003 


69 




JSR 


OUT 


t AVOIR LE BIT 7 A 1 


034A 




70 


+ 

t 








034A 


A5FE 


71 




LDA 


NL 




03 4 C 


C901 


72 




CMP 


*1 




03 4E 


FOOB 


73 




BEG 


OKI. 6 




0350 




74 


+ 








0350 


63 


75 




PL A 






0351 


A8 


76 




TAY 






0352 


68 


77 




PL A 




} ON RESTORE LA POSITION POUR 


0353 


85FD 


78 




STA 


PPO 


J PASSER AU CARACTERE SUIVANT 


0355 


C6FE 


79 




DEC 


NL 




0357 


C6FE 


80 




DEC 


NL 




0359 


DOCO 


81 




BNE 


OKI. 2 




03 5B 




82 










035B 


68 


83 


OKI . 6 


PL A 






03 5C 


68 


84 




PL A 




?FIN D'UNE LIGNE 


035D 




85 


+ 
* 








035D 


20A003 


86 




JSR 


FIN.L 




0361 


C028 


87 




CPY 


*!40 


JFIN DU HARD COPIE 


0362 


D0B3 


88 




BNE 


OKI. 1 




0364 




89 


i 








0364 




90 


♦ 


FIN DU PROGRAMME 


0364 




91 


♦ 

i 








0364 


A936 


92 




LDA 


*$36 




0366 


2013903 


93 




JSR 


ESC 


\ PASSAGE EN MODE INTERLIGNE NORMAL 


0369 


A91E 


94 




LDA 


#*1E 




03 6B 


20C003 


95 




JSR 


OUT 


JPASSAGE EN MODE CARACTERE NORMAL 


036E 


4CB00 3 


96 




JMP 


SAUT 


JSAUT DE 10 LIGNES 


0371 




97 


; 




Mf W W W '4? w w w w v|/ w w W \tt \u w ^Jf w w w w \1/ w w w w w w w w \u w W w w w w w w 
/ft jti jti Jtv jt* Jft /ft ift ift rfTv /ft /ft /ft jft ift /ft /ft rn ift /ft vft jft jft jft ^ft 


0371 




98 


; 






CALCUL DE L'ADRESSE DE DEBUT * 


0371 




99 


; 




)K 


D'UNE LIGNE * 


0371 




100 


I 




*j/ <ij* -J" * f t VL- ■ 1 f * | f \ff \Lf \tf *JV \V \V \V ^J/ \V \V 1^ «l 1 J » - f w \if 

/ft jft jft /ft jt^ jft /ft jft ift jft jft jft JTi jft jft jft /ft jft /ft ^« 


0371 




101 


; 






JFN FONCTION DU NUMERO 


0371 


A5FE 


10 2. 


ADL 


LDA 


NL 


0373 


48 


103 




PHA 




\ DE CETTE LIGNE 


0374 


29C0 


104 




AND 


**C0 




0376 


85 6 


105 




STA 


DL 




0378 


4A 


10 6 




LSR 






0379 


4 A 


107 




LSR 






037A 


0506 


108 




OR A 


DL 




037C 


850 6 


109 




STA 


DL 




037E 


63 


110 




PLA 






037F 


8507 


111 




STA 


DL + 1 




0381 


OA 


112 




ASL 






0382 


OA 


113 




ASL 






0383 


OA 


114 




ASL 






0384 


2607 


115 




ROL 


DL + 1 




0386 


OA 


116 




ASL 







Pom's n° 2 



33 



03 87 


2607 


117 




ROL. 


DL + 1 


0389 


OA 


118 




ASL 




038A 


6606 


119 




ROR 


DL 


038C 


A5 7 


120 




LDA 


DL+1 


038E 


291F 


121 




AND 


#*1F 


0390 


0D0303 


122 




ORA 


PAGE JET DE LA PAGE 


0393 


8507 


123 




STA 


DL + 1 


0395 


B106 


124 




LDA 


( DL ) , Y J ON RECUPERE L. ' OCTET DANS LA LIGNE 


0397 


25FD 


125 




AND 


PPO J PUIS LE POINT DANS L' OCTET 


0399 


18 


126 




CLC 




03 9 A 


FOOl 


127 




BEQ 


ADL » 1 JQUE L'ON UTILISE POUR CONSTITUER 


039C 


38 


128 




SEC 




03 9D 


66FF 


129 


ADL.l 


ROR 


CG t LE CARACTERE GRAPHIQUE 


039F 


60 


130 




RTS 




03 AO 




131 


t 




XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


03A0 




132 






* FIN D'UNE LIGNE * 


03A0 




133 


; 




XXXJKllflllXXXltlJItJIfJKXXJIfXJIfXXlllXJIIIXXXllillillfXIIfXXX**)!!**!* 


03A0 


A920 


134 


FIN ♦ L 


LDA 


#' ' 


03A2 


20C003 


135 




JSR 


OUT 


03 AS 


A9 0D 


136 




LDA 


* 1**' - Y' ft 1 ("". V | 

: | / |-j / ...$-<fo * RETURN 


03A7 


20C003 


137 




JSR 


OUT 


03 A A 


EA 


138 




NOP 


JS1 L'OKI N ' EST PAS DANS LE MODE 


03AB 


EA 


139 




NOP 


t AUTO LINE FEED 


03AC 


EA 


140 




NOP 


JMETTRE ICI { LDA #'J'~$40 


03AD 


EA 


141 




NOP 


; jsk our 


03AE 


EA 


142 




NOP 




03AF 


60 


143 




RTS 




03 BO 




144 


* 




xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


03B0 




145 


f 




* SAUT DE 10 LIGNES * 


03BO 




146 


* 




xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


03B0 


AOOA 


147 


SAUT 


LDY 


# ! 10 


03B2 


20A003 


148 


SAUT. 1 


JSR 


FIN ♦ L 


03B5 


88 


149 




DEY 




03 B6 


DOFA 


15 




BNE 


SAUT. 1 


03B8 


60 


151 




RTS 




03 B9 




152 


4 
t 




xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


03B9 




153 


+ 




x ENVOI D' ESCAPE PUIS D'UN CARACTERE * 


03B9 




154 


f 




XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


03B9 


48 


155 


ESC 


PHA 




03BA 


A91B 


156 




LDA 


* !27 


03BC 


20C003 


157 




JSR 


OUT 


03BF 


68 


158 




PL A 




03C0 




1159 


J 




xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


03C0 




160 


; 




* ENVOI D'UN CARACTERE SUR L'OKI * 


03C0 




161 


i 




xxxxxxxxxxxxxxxxxxxxxxxxxxuxxxxxxxxxxxxxx 


03C0 


43 


162 


OUT 


PHA 




03C1 


AD90C0 


163 


READY 


LDA 


$C090 


03C4 


2902 


164 




AND 


#2 


03C6 


F0F9 


165 




BEQ 


READY 


03C8 


68 


166 




PL. A 




03C9 


8D91C0 


167 




STA 


$C091 


03CC 


60 


168 




RTS 




03CD 




169 


+ 
t 






03CD 




170 
171 


t 
t 


END 





xx xxx END OF ASSEMBLY 
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Le Pascal - Analyse du directory 



MICHEL CRIMONT 



Les manuels PASCAL fournis avec 1' Apple donnent peu de renseignements sur le 
repertoire du disque, sa situation et sa composition. Or, le but du programme qui 
va suivre est d' assembler sur un seul disque les repertoires de tous les disques 
que 1 ' on possede afin de realiser un catalogue general permettant des recherches, 
des selections en fonction du nom des disques, du type ou du genre des programmes, 
etc . 

Pour que ce report se f asse automatiquement , il est tout d'abord necessaire de 
savoir lire ce repertoire. II commence au bloc 2 de chaque disquette et peut etre 
defini comme un enregistrement . 

REPERTOIRE: record 

VOL : DISQUE; 

CATALOG : array! 1 . .77! of FICHIER 
end ; 

II comporte en effet une premiere partie, que je nomme VOL, contenant les 
renseignements relatifs au disque (nom, date de creation,...) et une seconde 
appelee CATALOG se presentant comme un TABLEAU de 77 enregistrements contenant 
chacun des renseignements relatifs a un fichier du disque. On retrouve la 
limitation a 77 du nombre maximum de fichiers par disque que 1 ' on declarera comme 
une constante MAXFILE=77. 

Le type DISQUE comporte: 

le numero du bloc de debut du repertoire, de type entier 

le numero du bloc de fin de repertoire, de type entier 

le nom du disque de type String !7! 

le nombre de blocs du disque, de type entier 

la date de creation du disque, de type date 

et quelques valeurs appelees plus loin V1,V2,V3,V4 et que je n'ai pas identifiers, 
mais que 1 ' on peut considerer de type entier. 

Le type String! 7! est une chaine de caracteres que 1 ' on peut considerer comme 
PACKED ARRAY !0.. 7! of CHAR, 1 ' octet contenant la longueur de la chaine (d'ou la 
limitation a 255 caracteres au maximum de ce type), et les octets suivant les 
caracteres eux-memes . 

Le type DATE est defini lui-meme comme un enregistrement. 

DATE =packed record 
MOIS :1..12; 
JOUR :1..31; 
AN : 1 . . 99 
end ; 

On obtient done : 
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DISQUE =record 



DEBREP 
FINREP 
V1 

NOMDISQUE 
NBRBLOC 
NBRFICHE 
V2 

DATEDISQUE 
V3,V4 



INTEGER 
INTEGER 
INTEGER 



INTEGER 



INTEGER 
INTEGER 
INTEGER 
DATE; 



STRING! 7! ; 



end ; 



Chaque element de CATALOG se definit par un enregistrement comportant: 

le numero du bloc de debut de fichier, de type entier 

le numero du bloc suivant la fin de fichier, de type entier 

le type de fichier, de type 0..7 

le nom du fichier, de type STRING ! 1 5 ! 

le nombre de bytes restant dans le dernier bloc, de type entier 
la date du fichier de type date. 

Le type de fichier est represents par un chiffre de a 7: 0=RIEN, 1 =BAD , 2=C0DE, 
3=TEXT, 4=INF0, 5= DATA, 6=GRAPH , 7=PH0T0. Les types 4,6 et 7 ne sont pas utilises. 

On obtient alors: 

FICHIER =record 



DEBFICHIER : INTEGER; 
FINFICHIER : INTEGER; 
TYPEFICHIER : . .7 ; 
NOMFICHIER : STRING! 15!; 
DERNBLOC : INTEGER; 
DATEFICHIER: DATE 



II reste a definir le volume du disque qui doit etre lu, que l'on appelera 
NUMLECTEUR. La procedure de lecture des blocs du repertoire sera done simplement: 
UNITREAD ( NUMLECTEUR , REPERTOIRE ,2048,2). 

A 'noter que l'on peut remplacer 2048, qui represente le nombre d'octets transferes 
par l'appel de la fonction SIZEOF ( REPERTOIRE ) qui renvoit le nombre d'octets du 
type repertoire. De meme, un repertoire modifie (par exemple la date de mise a 
jour d'un fichier) doit etre replace sur le disque par UNITWRITE(NUM 
LECTEUR, REPERTOIRE, 2048,2 ) . 

La lecture et l'ecriture se feront par precaution sous forme de fonctions 
renvoyant un booleen vrai seulement si la lecture ou l'ecriture s'est effectuee 
correctement . Ce booleen servira de test au programme; ce sont les fonctions 
LIREREP et ECRIREP. 

II peut etre interessant, si plusieurs programmes doivent acceder au repertoire, 
de constituer une UNIT placee en librairie a partir des declarations de type DATE, 
DISQUE, FICHIER, de la variable NUMFICHIER et des deux fonctions LIREREP et 
ECRIREP. 

i.b nrosrramme tel nn'i 1 est nrevu presente quelques procedures dont l'utilite n'est 



end ; 
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pas evidente pour 1' instant, mais qui sont utilisees par la suite du programme; il 



s ' agi t 


de : 


PRINFO 


pvi t"p H T avni>' 1 3 ^nnvpni r Hn nndp A .^P TT Hpq ^3P3rf ppp^ Hp f^rtnf rnl p 

' "3 V J_ U ~ Li d V w J_ I a. o C uU U V Cllll U U UUUC rt kJ J L UCo Lul OC1 Co vi C LUU H U1C 


HOME 


: efface la fin de la ligne 


EFB 


: efface le bas de l'ecran a partir du curseur 


BS 


: recule de un caractere 


CR 


: retour de chariot 


SON 


: declenche un clic 


INV 


: inverse les caracteres a l'ecran 




(ne fonctionne qu'en PASCAL 1.1) 


NORM 


: retour a l'affichage normal 



PRENRETURN : ne prend que la touche "return" du clavier 
PRENCAR: renvoie un caractere choisi dans un set donne 
OUI : renvoie vrai si 1 ' on tape "0". 

La procedure LISTEFICHIER est surtout destinee a controler que cette premiere 
partie fonctionne normalement. Quant au corps de programme actuel , il ne fait que 
realiser la seule fonction "L" du FILER. 

Bien entendu, il serait possible de lister toutes les autres informations du 
repertoire ou par exemple ne lister que les fichiers .CODE en menu et par un 
SETCHAINE chainer directement le programme que 1 ' on veut executer a partir du 
programme menu mis dans un systeme STARTUP, ou encore mettre a jour par programme 
des dates de fichiers, etc. Mais le but de cette premiere partie est simplement de 
montrer comment est constitue le repertoire de disque PASCAL. La deuxieme partie 
montrera comment l'utiliser pour realiser un catalogue general. 

II faut bien sur utiliser les modifications du repertoire avec sagesse; on peut 
sans inconvenient modifier par exemple dans d' autres programmes le nom du disque, 
a condition de bien controler la longueur de la chaine de caracteres (STRING! 7!) 
ou le nom d'un fichier ( STRING ! 1 5 !) ; les dates peuvent egalement etre modifiees. 
Bien sur, il ne peut etre question de changer les references aux blocs debut et 
fin de fichier, etc, sinon le disque deviendrait totalement illisible. On peut par 
contre creer des fichiers "fantomes" comme le fait la fonction "M" du FILER, ou 
remettre en service par ce moyen un fichier efface par erreur si 1 ' on connait 
exactement le numero des blocs de debut et de fin. 
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<* ===== p REM i ERE pARTIE D' UN PROGRAMME DE CATALOGUE GENERAL *> 



<**C (C) M. CRIMONT LE 26/10/81 *) 
program LECREP; 

const MAXFILE =77; 

type CHOIDECA =set of CHAR; 

DATE =packed record 

MOIS :1..12; 
JOUR :l..31; 
AN :1..99 
end; 

DISQUE = record 

DEBREP 
FINREP 
VI 

NQMDISQUE 
NBRBLOC 
NBRFICHE 
V2 

DATEDISQUE 
V3, VA 
end ; 

FICHIER =record 

DEBFICHIER : INTEGER; 
F1NFICHIER : INTEGER; 
TYPEFICHIER:0. . 7; 
NOMFICHIER :STRING!15!; 
DERNBLOC : INTEGER; 
DATEFICHIER:DATE 
end ; 

var REPERTOIRE: record 

VOL 

CATALOG 
end ; 

NUMLECTEUR: INTEGER; 
HOME, BS, EFL, EFB, SON, INV, NORM, CRsCHAR; 



function LI RE REP (NUM 5 INTEGER) : BOOLEAN; (* LECTURE DU REPERTOIRE *) 

begin 
<**I-») 

UN IT READ < NUM, REPERTOIRE, SI ZEOF ( REPERTOI RE) , 2) ; 
L I RE RE P : = I ORESULT=0 
<**I+») 
end ; 



: INTEGER; 
: INTEGER; 
: INTEGER; 
: STRING! 7! ; 
: INTEGER ; 
: INTEGER; 
: INTEGER; 
:DATE; 
: INTEGER 



sDISQUE; 

: array ! 1 .. MAXFILE ! of FICHIER 
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function ECR I REP <IMUMs INTEGER) s BOOLEAN; (* ECRITURE DANS LE REPERTOIRE * 

begin 
(**I-») 

UNITWRITE (NUM, REPERTOIRE, SI2EOF (REPERTOIRE) , 2) ; 
ECR I RE P : = I ORESULT=0 
(»*I+*) 
end ; 

procedure PRINFO; (* CARACTERES DE CONTROLE *) 

begin 

H0ME:=CHR<12) ; EFI_:=CHR (29) ; BS:=CHR<8); CR :=CHR<13); 

SON :=CHR<7); INV:=CHR ( 18) ; NORM: =CHR (20) ; EFfci:=CHR (11) 

end; 



procedure PRENRETURN; (* PREND UNIQUEMENT LE <RET> *) 

var SORT sCHAR; 

begin 

repeat 

READ (KEYBOARD, SORT) 

until EOLN (KEYBOARD) 
end ; 



function PRENCAR (BONSET: CHOI DECA) :CHAR; (* SELECTION D* UN CARACTERE *) 

var CH :CHAR; 

BON : BOOLEAN ; 
begin 
repeat 

READ (KEYBOARD, CH) ; 

if EOLN then CH:=CR; 

BON:=CH in BONSET; 

if not BON then WRITE (SON) 

else if CH in !' ' . . ' ~' .' then WRITE(CH) 
unt i 1 BON ; 
PRENCAR :=CH 
end ; 

function OUl:BOOLEAN; (* VRAIE SI L'ON TAPE '0' *) 

begin 

OUl:=PRENCAR(!'0','N' !) in ! » 0' ! 
end ; 



procedure LISTEFICHIER; (* ESSAI DES PROCEDURES *) 

var I,N : INTEGER; 

begin 
N: = l ; 

WRITE (HOME) ; 

with REPERTOIRE do 

begin 

WRITELN ( ' ' :10, 'DISQUE:' , VOL. NOMDISQUE) ; 
G0T0XY(0,3) ; 

for l:=l to VOL. NBRFICHE do 
begin 

if CATALOG ! I !. NQMFICHIER <>' 1 then 

with CATALOG! I ! do 

begin 

WRITE (' ' :5, NOMFICHIER, » ' :20-LENGTH(N0MFICHIER) ) ; 
with DATEFICHIER do WRITELN( J0UR:2, ' /' , M0IS:2, ' /> , AN) ; 
N:=N+1 
end ; 

if (N mod 15) =0 then 
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begin 

WRITELN; 

WRITE < INV, 'TAPER (RETURN) POUR CQNTINUER ' , NORM) ; PRENRETURN; 
GOTOXY(0, 3) ; WRITE (EFB) ; 
N: = l 
end 

end 
end 
end ; 



begin 
PRINFO; 
repeat 

WRITE (HOME) ; 
repeat 

GOTOXY(0, 0) ; WRITE CNUMERO DU LECTEURs ' ) ; READLN (NUMLECTEUR) 
until NUMLECTEUR in ! 4, 5, 9. . 12 ! ; 
if LIREREP (NUMLECTEUR) then LISTEFICHIER 

else WRITELN (' ERREUR EN LECTURE...'); 
GOTOXY (0, 22) ; WRITE ( INV, ' UN AUTRE DISQUE (0/N) ? ' , NORM) 
until not OUI; 
WRITE (HOME) 
end. 



logmct 



Une informatique de geslion adapted aux besoins ties (jestinnnaires et realises par des gestionnaires. 



ETUDIE 

FORME 

REALISE 

LIVRE 



• opportunity d'utilisation de l'outil micro-inf ormatique 

• integration entre informatique traditionnelle et personnelle 

• politique de la communication dans 1'entreprise 



• formation a 1'utilisation de la micro-informatique 



• realisation de programmes a la demande 



livraison de systemes cles en main, avec des progiciels de 
GESTION DE STOCK, PAYE, COMPTABILITE. 



Nous sommes gestionnaires avant d'etre informaticiens. L'informatique doit s'adapter a l'homme, et non l'inverse. 
L'outil micro-informatique repond particulierement bien a ce souci de qualite et d'efficacite du travail, 

dans des conditions conviviales. 
Nombreuses references en informatique traditionnelle - divers materiels - et en informatique individuelle - principalement 

Apple - aupres des PME et des groupes industriels. 
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Trois secondes pour trier 



NICOLE BREAUD 



La fonction de tri est sans doute une des taches les plus f ondamentales de l'outil 
inf ormatique . Mais les utilitaires de tri sont encore ra res dans le domaine du 
micro . 

Notre propos dans cet article est de : 

Presenter les differentes method es de tri et de les classer selon leurs 
performances. 

Proposer un tri par insertion programme en assembleur qui ne vous demand e 
que "trois secondes pour trier !" 

A. Les methodes de tri 



Les theoriciens (Knuth, Wirth, Hoare et les autres) nous conseillent d'eviter de 
choisir des methodes. directes ou le nombre d'echanges est redhibitoire et nous 
proposent des methodes basees soit sur une division en partitions du tableau, soit 
sur une structuration en arbre binaire des elements. 

Ces methodes elaborees de tri sont en fait des derives des methodes elementaires 
dont on distingue cinq types: 1' insertion, la selection, l'echange, le comptage et 
la fusion. 

De l'idee d'insertion, on retient qu'il s'agit a chaque pas d'inserer un element 
nouveau dans une sous-liste deja triee. C'est la methode de tri elementaire la 
plus efficace et ses performances rivalisent meme dans certains cas avec celle des 
methodes elaborees. 

Selon l'idee de selection, on definit un algorithme de recherche du plus petit 
element qui sera place en debut de tableau, puis du second plus petit element et 
ainsi de suite. Le temps d'execution de cet algorithme est proportionnel au nombre 
d 'elements, ce qui est inacceptable pour des tableaux assez grands ( plus de 50 
elements). II faut preferer des methodes de constitution d'un arbre binaire ayant 
des proprietes specif iques qui amenent a un tri dont le temps d'execution est 
proportionnel a log2(N), N etant le nombre d'elements a trier. II s'agit du 
HEAPSORT. 

De l'idee d'echange, on a imagine 1' algorithme de tri a bulles (BUBBLE) qui 
provoque une remontee "en surface" des plus petits elements, mais ceci en un temp's 
tres eleve si le tableau est totalement en desordre . II existe cependant un moyen 
plus rapide qui consiste a comparer des elements situes a un ecart donne, et a 
diminuer progressivement cet ecart jusqu'a 1 (comme pour la methode directe). Ces 
methodes ameliorees se denomment SHELL et SHELL-METZNER. L'idee d'echange a aussi 
engendre la tres belle methode de tri par partitions et echanges denommee 
QUICKSORT. Cet algorithme a un deroulement recursif; il s'appelle lui-meme mais 
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avec des arguments de plus en plus simples a traiter. On le programme en BASIC 
grace a une pile de reserve d'adresses de sous-tables a trier qui, avec une 
programmation adequate, demande 20 cases au maximum. 

De l'idee de comptage, on appreciera que cette methode ne modifie pas l'ordre de 
groupes d' elements identiques. Son efficacite, limitee, suppose done une bonne 
distribution des cles sur un espace bien determine. 

Enfin 1 'utilisation de la fusion se revelera souvent bien utile. II est en effet 
simple de reconstruire une liste a partir de sous-listes triees separement. Cela 
permet par exemple de ne trier qu'avec une partie du fichier en memoire vive, dans 
le cas d 'une limitation de capacite. 

CALL-A.P.P.L .E. a publie en Octobre 1 9 80 un article sur les algorithmes de tri, 
ainsi que des tests comparatifs. Les resultats obtenus varient suivant le type et 
la taille des listes triees. Sur un fichier aleatoire de plus de cent elements, le 
classement est le suivant: QUICKSORT, HEAPSORT, SHELL, SHELL-METZNER , INSERTION. 
Une comparaison des methodes de tri vous est aussi offerte dans "la pratique de 
1' Apple", tome II (editions du P.S.I. ). 

II est a noter que la methode d 'insertion est la plus efficace de toutes pour les 
tris sur moins de vingt elements et pour des fichiers d'elements pre-tries. Ces 
performances alliees a sa simplicite en font une excellente resscurce. La suite de 
cet article vous permettra de l'utiliser corome sous-programme assembleur de vos 
programmes BASIC. 



B. Le programme TRINS. Tri par insertion 



Si nous disposions du langage LISP (special ement adapte au traitement de listes et 
a la recursi vite ) , nous pourrions tout simplement dire: 

"Trier, c' est inserer le 1 er element dans le tri du reste". 

B1 . Le programme en BASIC 

On insere successivement dans la liste le second element du tableau, puis le 
troisieme, ... jusqu'au Ni erne du tableau. Les sous-listes deja triees dans 
lesquelles ces elements doivent s 'inserer sont bien sur: 

AO ) . 

A(1) ,A(2) 

etc 

AO ),..., A(N) 

Des que 1' element a inserer K est plus petit qu'un element de la sous-liste, ce 
dernier est dec ale sur la droit e pour permettre 1' insertion dans des cases 
anterieures (eventuellement a la 1ere case si 1' element a inserer est plus petit 
que tous ceux de la sous-liste). S'il s'avere plus grand, il s' insere a la place 
suivante dans la sous-liste. 

D'ou le programme BASIC: 'J LIST 
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C* I**' M V W W V W W W W V W V V V W W W V w w w w w w 
Ia I I 

* PROGRAMME DE TRI * 

* PAR INSERTION * 

* BASIC * 

\l/ \IJ \ |» *|j \M \M uf \tr yt* \M \tr uf % 1/ ^ ^ ^ 

^™ ^™ ^™ 
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DIM A (255) 
Pom's n° 2 



30 INPUT "N? "?N 

40 FOR I a? 1 TO N:A(I) - INT (1 
00000 * RND (1) ) : PRINT A(I 





) ii ii ♦ ♦ 


NEXT It PRINT 


DU 


INPUT " 


DEPART DU TRI "JR* 


Atl 
6U 


FOR I « 


2 TO N 


70 


K - A(I) 




p n 


FOR J m 


I - 1 TO 1 STEP - 


90 


IF A(J) 


< K THEN 130 


100 


A(J + 1) 


= A(J) 


110 


NEXT J 




120 


A(l) == Hi GOTO 140 


130 


A(J + 1) 




14 


NEXT I 




150 


INPUT " 


OPERATION TERMINEE 




R* 




160 


FOR I = 


1 TO Ni PRINT A(I> 



" i t NEXT I 

B2. Le programme en langage machine 



Ce programme, plutot academique, en langage machine permet le tri d'un tableau ou 
chaque element n'est qu'un seul octet et oil l'on connait l'adresse de debut du 
tableau (contenue dans 6,7) et sa longueur (dans 8). 

*30 0LL 



0300- 


A0 


01 


LDY 


**01 


03 02- 


C8 




INY 




03 03- 


Bl 


06 


LDA 


<*06) ,Y 


03 05- 


85 


OA 


STA 


$0A 


03 07- 


98 




TYA 




03 08- 


48 




PHA 




03 09- 


38 




SEC 




03 OA- 


E9 


01 


SBC 


**01 


030C- 


A8 




TAY 




03 0D- 


Bl 


06 


LDA 


(*06) ,Y 


03 OF- 


C5 


OA 


CMP 


*0A 


0311- 


90 


09 


BCC 


*031C 


0313- 


E6 


06 


INC 


$06 


0315- 


91 


06 


STA 


<*06) ,Y 


0317- 


C6 


06 


DEC 


$06 


0319- 


88 




DEY 




03 1A- 


10 


Fl 


BPL 


*030D 


031C- 


A5 


OA 


LDA 


*0A 


031E- 


C8 




INY 




031F- 


91 


06 


STA 


(*06) ,Y 


0321- 


68 




PL A 




0322- 


A8 




TAY 




0323- 


C4 


08 


CPY 


*08 


0325- 


90 


DE 


BCC 


*0302 


0327- 


00 




BRK 





Le registre d 'index Y evolue comme la variable I du programme precedent puis, 
avant la boucle J, Y est empile avant d'etre utilise pour evoluer comme la 
variable J. En fin de boucle J, on recupere la variable I en depilant la valeur de 



Pour tester le programme il faut au prealable charger 6 et 7 de l'adresse basse et 
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de l'adresse haute du premier octet du tableau a trier, et charger 8 du nombre 
d 'octets a classer par ordre croissant de valeur comprises entre -128 et +127. 

B3. Rappel preliminaire 

Avant de rentrer au coeur de TRINS, revenons sur 1 ' implantation des variables 
reelles en Applesoft et 1 'utilisation de sous-programmes pour nombres f lottants . 

Chaque valeur reelle occupe cinq octets: un pour l'exposant (avec un decalage de 
128) et quatre pour la mantisse. Dans le cas d'un tableau de nombres reels a une 
dimension, on passe au nombre suivant en incrementant le curseur de cinq unites. 

Pour deplacer les elements de la liste, on utilisera deux sous-programmes: 

- MOVFM : transfert d'un nombre M vers 1 ' accumulateur flottant FAC. 

- MOVMF : transfert du FAC vers une zone de memoire M. 

Les arguments de ces sous-programmes sont les adresses basses et hautes dont les 
contenus constituent l'adresse de la premiere case de la zone de cinq octets. Pour 
MOVFM, il faut utiliser les registres A et Y respectivement pour l'adresse basse 
et haute du pointeur. Pour MOVMF, ce sont les registres X et Y. 

Pour comparer deux nombres reels, nous en effectuons la soustraction dans le FAC 
et analysons le signe du resultat en appelant SIGN. Apres l'appel de cette 
routine, 1 ' accumulateur A contient 00, 01 ou FF suivant que le FAC est nul , 
positif ou negatif . 

BM . le programme en assembleur 

Les parametres a donner au programme et les adresses ou placer ces valeur s sont: 

- A1 : l'adresse de 1' element A(1) du tableau a trier (dans 6,7) 

- N : le nombre d 'elements du tableau (dans 10) 

K : l'adresse d'une variable reelle permettant de conserver la premiere valeur 
de A(I) (dans 8,9). 

Les variables utilisees sont: 

- AI : adresse de 1' element A (I). 

- AJ : celle de A( J) . 

- I et J : les indices des bqucles. 

L'adresse de 1 'element suivant A(J+1) est calculee et rangee dans X et Y pour etre 
immediatement utilisee par MOVMF. Les sous-programmes SAVE et RESTOR permettent de 
reconstituer le contexte originel, specifie par les valeurs des registres A,X,Y,P 
et S. 





OF 


PASS 


1 




08 




9 


AI 


EPZ 


*1E 


**ie:nd 


OF 


PASS 


2 




0800 




10 


AJ 


EPZ 


*1B 












0800 




11 


K 


EPZ 


*08 


0800 






1 




08 




12 


I 


EPZ 


$19 


08 






2 


JTRI INSERTION 


0800 




13 


J 


EPZ 


*1A 


0300 






3 


; A ( N ) 


03 




14 




ORG 


*300 


0800 








J N<256 


0300 




15 




OBJ 


*800 


08 






5 




03 




16 


♦ 
* 






08 






6 


E EQU !5 


03 


204AFF 


17 


TRI 


JSR 


SAVE 


0800 






7 


Al EPZ 06 


0303 


A50A 


18 




LDA 


N 


0800 






8 


N EPZ *0A 


03 05 


49FF 


19 




EOR 


**FF 
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0307 


18 


20 




CLC 




0308 


6902 


21 




ADC 


#*2 


030A 


8519 


22 




STA 


I 


030C 


A507 


23 




LDA 


Al + 1 


030E 


851F 


24 




STA 


AI+1 


03:10 


851C 


25 




STA 


AJ+l 


0312 


AS 6 


26 




LDA 


Al 


0314 


18 


27 


BCLI 


CLC 




0315 


6905 


28 




ADC 


#E 


0317 


851E 


29 




STA 


A I 


0319 


9002 


30 




BCC 


TAIK 


03 IB 


E61F 


31 




INC 


AI + 1 


03 ID 


A41F 


32 


TAIK 


LDY 


AI+1 


03 IF 


20F9EA 


33 




JSR 


MOVFM 


0322 


A608 


34 




LDX 


K 


0324 


A409 


35 




LDY 


K+l 


0326 


20 2BEB 


36 




JSR 


MOVMF 


0329 




37 


♦ 

f 






0329 


A519 


38 




LDA 


I 


032B 


18 


39 




CLC 




032C 


65 OA 


40 




ADC 


N 


032E 


851A 


41 




STA 


J 


0330 


A51F 


42 




LDA 


AI+1 


0332 


851C 


43 




STA 


AJ+l 


0334 


A51E 


44 




LDA 


AI 


0336 


38 


45 


BCLJ 


SEC 




0337 


E9 5 


46 




SBC 


*E 


0339 


85 IB 


47 




STA 


AJ 


033B 


BO 02 


48 




BCS 


COMP 


033D 


C61C 


49 




DEC 


AJ+l 


033F 


A41C 


50 


COMP 


LDY 


AJ + l 


0341 


20F9EA 


51 




JSR 


MOVFM 


0344 


A5 08 


52 




LDA 


K 


0346 


A4 09 


53 




LDY 


K+l 


0348 


20A7E7 


54 




JSR 


FSUE: 


034B 


2082EB 


55 




JSR 


SIGN 


034E 


F002 


56 




BEQ 


KINFAJ 


0350 


102C 


57 




BPL 


AJINFK 


0352 


A51B 


58 


KINFAJ 


LDA 


AJ 


0354 


A41C 


59 




LDY 


AJ+l 


0356 


20F9EA 


60 




JSR 


MOVFM 


0359 


A41C 


61 




LDY 


AJ + l 


035B 


A51B 


62 




LDA 


AJ 


035D 


18 


63 




CLC 




035E 


6905 


64 




ADC 


#5 


0360 


AA 


65 




TAX 




0361 


9001 


66 




BCC 


OK 


0363 


C8 


67 




INY 




0364 


2 02BEB 


68 


OK 


JSR 


MOVMF 


0367 




69 


♦ 






0367 


A51B 


70 




LDA 


AJ 


0369 


C61A 


71 




DEC 


J 


036B 


D0C9 


72 




BNE 


BCLJ 


036D 


A508 


73 




LDA 


K 


036F 


A4 9 


74 




LDY 


K+l 


0371 


20F9EA 


75 




JSR 


MOVFM 



0374 


A606 


76 




LDX 


Al 


0376 


A407 


77 




LDY 


Al + 1 


0378 


202BEB 


78 




JSR 


MOVMF 


037B 


4C9303 


79 




JMP 


IS 


037E 


A508 


80 


AJINFK 


LDA 


K 


0330 


A409 


81 




LDY 


K+l 


0382 


20F9EA 


82 




JSR 


MOVFM 


0335 


A41C 


83 




LDY 


AJ+l 


0387 


A51B 


84 




LDA 


AJ 


0389 


18 


85 




CLC 




033A 


6905 


86 




ADC 


#E 


033C 


AA 


87 




TAX 




033D 


900 1 


88 




BCC 


IL 


038F 


C8 


89 




INY 




0390 


20 2BEB 


90 


IL 


JSR 


MOVMF 


0393 


A51E 


91 


IS 


LDA 


AI 


0395 


E619 


92 




INC 


I 


0397 


F003 


93 




BEQ 


FIN 


0399 


4C1403 


94 




JMP 


BCLI 


039C 


203FFF 


95 


FIN 


JSR 


RESTOR 


039F 


60 


96 




RTS 




03AO 




97 


t 






03A0 




98 


MOVMF 


EQU 


*EB2B 


03 AO 




99 


MOVFM 


EQU 


*EAF9 


03AO 




100 


FSUB 


EQU 


*E7A7 


03AO 




101 


SIGN 


EQU 


$ E E' 8 2 


03A0 




102 


SAVE 


EQU 


$FF4A 


03A0 




103 


RESTOR 


EQU 


$FF3F 



104 END 



***** END OF ASSEMBLY 



*30 3A0 



0300- 


20 


4A 


FF 


A5 


OA 


49 


FF 


18 


0308- 


69 


02 


85 


19 


A5 


07 


85 


IF 


0310 - 


85 


1C 


A5 


06 


18 


69 


05 


85 


0318- 


IE 


90 


02 


E6 


IF 


A4 


IF 


20 


0320 - 


F9 


EA 


A6 


08 


A4 


09 


20 


2B 


0328- 


EB 


A5 


19 


18 


65 


OA 


85 


1A 


033 - 


A5 


IF 


85 


1C 


A5 


IE 


38 


E9 


0338- 


05 


35 


IB 


B0 


02 


C6 


1C 


A4 


0340- 


1C 


20 


F9 


EA 


A 5 


08 


A4 


09 


0348- 


20 


A7 


E7 


20 


82 


EB 


F0 


02 


0350- 


10 


2C 


A5 


IB 


A 4 


1C 


20 


F9 


0358- 


EA 


A4 


1C 


A 5 


IB 


18 


69 


05 


0360- 


AA 


90 


01 


C8 


20 


2B 


EB 


A5 


0368- 


IB 


C6 


1A 


DO 


C9 


A5 


08 


A4 


0370- 


09 


20 


F9 


EA 


A6 


06 


A4 


07 


0378- 


20 


213 


EB 


4C 


93 


03 


A5 


08 


0380 - 


A4 


&9 


20 


F9 


EA 


A4 


1C 


A 5 


0388- 


IB 


18 


69 


05 


AA 


90 


01 


C8 


0390- 


20 


2B 


EB 


A 5 


IE 


E6 


19 


F0 


0398- 


03 


4C 


14 


03 


20 


3F 


FF 


60 



03A0- A9 
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B5 . Utilisation de la routine 



Le petit programme presente ici donne un exemple de 1 'utilisation de la routine de 
tri ecrite en assembleur par un programme BASIC. 

10 REM 5K )K)K )K XC 5K XC )K XC XC XC XC XC 5K 5K X( 5K 5K 5K 5K 5K )K )K 

* PROGRAMME DE TRI * 

* PAR INSERTION * 

* APPEL SUB-ROUTINE * 

^ ^ L* ^/ \tf \1* \1* \U \1* ^/ ^/ K V ^ ^ 1* ^ 1* ^AT VLT U/ 1^ 

^ft ^ft /'ft #ft &k -■S 



20 DIM A (255) 

30 INPUT "N? "ttii POKE 10,N 

40 K * OJX = OJI = 

50 FOR I = 1 TO N!A(I) = INT ( 1 

00 * RND ( 1 ) ) ? PRINT A (I 

)" NEXT i: PRINT 

60 INPUT "DEPART DU TRI "}R$ 
70 X == A(l)t POKE 6, PEEK (131)t POKE 

7 t F'EEK ( 132 ) 
80 X = KJ POKE 8, PEEK (131): POKE 

9, PEEK ( 132) 
90 CALL. 768 

100 INPUT "OPERATION TERMINEE "J 
R* 

110 FOR I - 1 TO N! PRINT A (I)" 
" » ♦ NEXT I 

Les instructions ** 30, 70 et 80 ** permettent de transferer les arguments a la 
routine, qu'on aura charge e prealablememt (BLOAD TRINS-ASSEMBLEUR ) . Dans les 
adresses 131 et 132, on trouve le pointeur de la derniere variable utilisee par la 
derniere instruction BASIC, done l'adresse de A( 1 ) et celle de K. 



Le programme TRINS- APPEL, qui fait appel a la routine assembleur est vingt fois 
plus rapide que son equivalent TRINS-BASIC (trois secondes au lieu de soixante) 
pour trier une liste d'une centaine d' elements. Pour les plus exigeants, une 
routine^ QUICKSORT donnera de meilleurs resultats pour des tableaux de plus de 
vingt elements. Mais le resultat est deja fort appreciable pour un tri si facile a 
utiliser et peu encombrant. 
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Sprechen Sie DOS ? 



CHRISTIAN GUERIN 



Ce programme 
linguistiques . 



va vous permettre d ' adapter les commandes du DOS a vos preferences 



Dans le premier numero de POM'S, j'avais presente un programme assembleur qui 
permettait de ne taper que la premiere lettre de certaines instructions donnees. 
Mais cette methode pouvait gener d'autres "inputs" a l'ecran et devait etre 
utilisee avec precaution. II est a noter qu'elle peut etre exploitee avec profit a 
d'autres fins, par exemple pour eviter des saisies redondantes telles que taper 
"Facture" ou "Compte" en toutes lettres. 

Le programme presente ici s 'attaque au coeur du probleme en modifiant la syntaxe 
du DOS a l'interieur meme de celui-ci. La table des noms des ordres que le DOS va 
lire en RAM pour interpreter ce que vous tapez se trouve a l'adresse 43139 ($A884) 
pour un 48 K. Chacune des 28 commandes est separee de la suivante grace au bit de 
poids fort de son dernier caractere . Le programme vous permet de saisir votre 
table personnalisee puis la recopie dans le DOS en fin de traitement. 

Pour constituer votre DOS, tout vous est permis. La seule contrainte exterieure 
est un probleme de place: la table complete ne peut contenir plus de 133 
caracteres. Dans le programme, la longueur de chaque ordre est limitee a 9 et 
bornee par le nombre de caracteres encore disponibles. Nous avons d 'autre part 
interdit les blancs, qui rendraient inutilisable 1 ' instruction : par exemple si 
vous aviez a taper "CAT LOG" a l'ecran, c'est "CAT" que le DOS irait comparer aux 
valeurs contenues dans la table. A noter que la saisie propose par defaut le nom 
standard des ordres du DOS, qui vous sont rappeles a l'ecran. Cette option permet 
de redonner facilement a votre DOS sa syntaxe virginale. 

Si vous desirez creer une disquette avec un DOS personnali se , il vous suffit 
d ' initiali ser celle-ci apres avoir modifie votre syntaxe. Utilisez pour cela la 
commande INIT ou sa version modifiee (par exemple VIVE-POM'S). 



N.B. : le programme est a adapter si vous ne possedez pas un 48 K. II faut dans ce 
cas modifier l'adresse du debut de la table (Ster 16*4096 pour un 32 K, 32*4096 
pour un 1 6K) . 



X )K 

x PROGRAMME DE * 

x MODIFICATION DES * 

x ORDRES DU DOS * 

x x 

^4f 4 4 V V V V V W W V V V yii V V V V V 
,m. A. A j#L jK m. A fn vrt Jti in m m Jn m Mi tn JTi /n 

20 DIM N$(28)t REM NOM FINAL 
30 DIM N0$<28): REM NOM INITIAL 

40 AB = 43:l.39J REM DEBUT TABLE 

50 NC =» 1 : REM TAILLE TABLE 

60 MC ■ 133} REM TAILLE MAXIMUM 



70 NO = 1 
80 HOME 

90 REM XXXX)KXXX}KXXXXXXX>K>KX)KX 

x LECTURE DE LA * 
x TABLE DANS LE DOS * 

10 FOR N == 1 TO 28 

110 READ N0$(N) 

120 C = PEEK (AB + NC) 

130 IF C > 128 THEN 150 

ho c* = c* + chr$ (ojnc »= nc + 
:l: goto 120 
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hi 



150 N*(N) = C* + CHR* (C - 128) 
16 C* » "":NC » NC + 1 
170 NEXT N 

180 REM xxxxxxxxxxxxxxxxxxxxx 
x AFFICHAGE DES x 
x NOMS A L'ECRAN x 

5K JIC J*K ?K JK J*K JK ?K 5K 5K 5K 5K 5K JK 5K SK JK JK JK JK JK 

190 TEXT { HOME 

20 FOR I » 1 TO 14 

210 VTAB 3 + It PRINT NO* (I) J TAB ( 
10>JN*(I>J TAB ( 19) J"! " 

22 VTAB 3 + It HTAB 22 i PRINT N 
0$(I + 14) J TAB ( 32) JN*(I + 
14) 

230 NEXT I 

240 REM xxxxxxxxxxxxxxxxxxxxx 
x MENU x 

JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK 

250 VTAB 19 * PRINT "TAPEZ > 

POUR UN DEPLACEMENT POSITIF" 

260 PRINT " < POUR UN D 

EPLACEMENT NEGATIF" 
27 PRINT " ESC POUR MODI 

FIER UN ORDRE" 
280 PRINT " F POUR LA F 

IN DU PROGRAMME" 
290 INVERSE I FLASH J GOSUB 690 I 
NORMAL 

300 REM xxxxxxxxxxxxxxxxxxxxx 
x ATTENTE D ' UN x 
x CARACTERE x 

JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK 

310 C === PEEK ( -- 16384) % IF C < 

128 THEN 310 
320 POKE - 16368,0 

33 REM TEST SI ESCAPE 

34 IF C - 155 THEN 520 

35 REM TEST SI ■•---> 

360 IF C == : 149 THEN GOSUB 690 tN 
==: NO + 14 x (NO < > 28) - 
27 x (NO > 14) i GOTO 290 

37 REM TEST SI <— 

38 IF C = 136 THEN GOSUB 690 tN 

O = NO - 14 x (NO < > 1) + 
27 x (NO < 15) i GOTO 290 

39 REM TEST SI F 

400 IF C •- 128 < ASC ("F") THEN 

290 

410 REM xxxxxxxxxxxxxxxxxxxxx 
x FIN DE PROGRAMME x 

JK JK JK JK JK ^K JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK 

420 HOME { VTAB 13: PRINT " MO 
DIFICATION DE LA TABLE DU DO 
S" 

430 NC = 1 

440 FOR I ■ 1 TO 28 



450 FOR J ■ 1 TO LEN ( N* ( I ) ) 

46 POKE AB + NC, ASC ( MID* (N* 

( I ) , J , 1 ) ) 

47 NC " NC + 1 
480 NEXT J 

490 POKE AB + NC - 1 , ASC ( RIGHT* 

(N*<I>,1>> + 128 
50 NEXT I 
510 HOME. I END 

520 REM xxxxxxxxxxxxxxxxxxxxx 
x MODIFICATION x 
x D'UN ORDRE x 

JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK 

530 VTAB 18{ CALL - 958J PRINT 
t PRINT "MODIFICATION DE L'O 
RDRE m ;NO*(NO) 

540 CD = MC - NC + LEN <N*(NO)>{ 
IF CD > 9 THEN CD == 9 

550 PRINT CD J " CARACTERES DISPON 
IBLES" 

560 VTAB 21 i INPUT N* 

57 IF N* » "" THEN N* ■ NO* (NO) 

580 IF LEN (N*) > 9 THEN 520 

59 IF NC LEN (N*(NO)) + LEN 

(N*) > MC THEN PRINT ""I I GOTO 
520 

60 OK ■ I? FOR I = 1 TO LEN (N* 

) JBL* = MID* (N*,I,1) tOK = 
OK x (BL* < > " ")l NEXT It 
IF OK - THEN 520 
610 NC == NC ■- LEN (N*(NO)) + LEN 
( N* ) 

620 N*(NO) = N*t GOTO 180 
630 REM xxxxxxxxxxxxxxxxxxxx 
x TABLE DES ORDRES x 
x ORIGINAUX DU DOS x 

JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK JK 



640 DATA "INIT" , "LOAD" , "SAVE" , "R 

UN", "CHAIN", "DELETE" 
650 DATA "LOCK" , "UNLOCK" , "CLOSE" 

, "READ" , "EXEC" , "WRITE" 

66 DATA "POSITION", "OPEN", "APPE 

ND" , "RENAME" , "CATALOG" 

67 DATA "MON" , "NOMON" , "PR*" , "IN 

*:',"MAXFILES","FP" 
680 DATA "INT","BSAVE","BLOAD"," 

BRUN" , "VERIFY" 
690 REM xxxxxxxxxxxxxxxxxxxx 
x POSITIONNEMENT x 
x A L'ECRAN x 

ytfi 5K ?K ?K ?K 5K )K )K )K 

70 REM 

710 VTAB 3 + NO - 14 x (NO > 14) 



720 HTAB 10 + 22 * (NO > 14) 
73 PRINT N*(NO)t RETURN 



48 



Pom's n° 2 



Des vers dans la pomme 



ALEXANDRE DUBACK 



REPAREZ VOTRE RENUMBER, SI CE N ' EST DEJA FAIT 

Dans la rubrique "L'Apple Epluche" de l'Ordinateur Individuel, il y a longtemps, 
le probleme du Renumber Apple a deja ete souleve. Nous le rappellons et apportons 
ici une reponse plus complete au probleme. 

Essayez de faire renumeroter par le RENUMBER de votre disquette Master le 
programme suivant : 2 A =2 0*20 

Si .le resultat que vous obtenez est : 10 A.= 20*10 
... il faut que vous fassiez le changement suivant : 
LOAD RENUMBER 

A=x : B= 1 72 : POKE x,B:P0KE x+1,B-T 
UNLOCK RENUMBER 
SAVE RENUMBER 
LOCK RENUMBER 

avec les valeurs de x suivantes : x= 143^2 pour le DOS 3.2 avec Applesoft en RAM et 
x=4815 avec Applesoft en ROM. Pour le DOS 3-3 : x=14316 avec l'Applesoft en RAM et 
x=4789 avec Applesoft en ROM. 



LES DRAMES DE L' APPEND - SUITE ET FIN (?) 

Nous avons indique dans le numero 1 de Pom's une methode pour s' assurer que 
1' APPEND fasse apparaitre une fin de fichier meme dans le cas ou la fin de fichier 
tombe sur une fin de secteur. Quand ce probleme survenait, on s'en apercevait 
rapid ement car la suite du fichier s'inscrivait au tout debut du fichier. 

Un autre "bug" de 1' APPEND est nettement plus vicieux, car moins apparent. II 
survient quand vous utilisez APPEND avec des fichiers de plus de 128 secteurs. 

Lors d'un APPEND, le DOS commence normalement a ecrire la suite des informations a 
partir du EOF (end of file) en ecrasant celui-ci par la premiere nouvelle 
information. Quand l'EOF se trouve a plus de 128 secteurs au-dela du debut de 
fichier, 1 ' APPEND realise l'adjonction des nouvelles informations a partir du byte 
suivant l'EOF, et done sans ecraser celui-ci. 

A partir de ce moment, chaque APPEND ulterieur ecrit les nouvelles informations en 
debutant au byte suivant ce premier EOF. Cela ressemble a ce que faisait 1' APPEND 
avec le bug decrit dans le premier numero de Pom's, mais e'est plus difficile a 
deceler, car il y a au moins 128 bons secteurs dans le fichier ! 

Nous essaierons de vous donner la solution dans le numero 3 de POM's. En 
attendant, ne faites pas d' APPEND sur des fichiers de plus de 128 secteurs ... 
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Des livres pour votre Apple II 




N La decouverte 

I de r APPLESOFT 

i par Dominique Schraen 
J et Frederic Levy 

j Cet ouvrage d'initiation s'adresse 
i aussi bien aux futurs utilisateurs 
j d'Apple voulant apprendre la 
; programmation en Basic Applesoft, 
qu'a I'Applelophile chevronne, 
sollicite par ses proches curieux 
de "voir un peu comment ca 
marche". D'approche progressive, 
il est illustre de nombreux 
exemples et exercices. 

Serie verte 

128 Pages - 65 FF 



La pratique de I'APPLE II 

(Volume I) 

par Nicole Breaud-Pouliquen 

Cet ouvrage presente les 
specificites du Basic Applesoft 
a partir d'une description du 
materiel et du logiciel du systeme 
Apple. Les techniques 
de programmation, de composition 
et d'animation de dessins et 
graphiques colores y sont 
expliquees a I'aide d'exemples 
illustratifs et d'exercices resolus. 

Serie bleue 
128 Pages - 65 FF 





P < La pratique de I'APPLE II 

(Volume II) 

■ par Nicole Breaud-Pouliquen 

Ce second volume de la Pratique 
i del'Applellestconsacreau 
I systeme d'exploitation disque, 

a la gestion des fichiers, 
i a I'impression et aux 
'i imprimantes, a la carte 

horloge Appleclock. 
t De nombreux exemples 
^ de programmes 

■ illustrent les fonctions 
! etlescommandes 
'' decrites. 

i Serie rouge 
120 Pages 
65 FF 



La pratique de I'APPLE II ► 

(Volume III) 
par Nicole Breaud-Pouliquen 
et Daniel- Jean David 

Ce volume est une initiation a la 
programmation en langage 
machine 6502, dont le jeu 
destruction est explique et 
utilise. L'assembleur symbolique 
et ses logiciels connexes y sont 
decrits. ^interaction avec le Basic 
et avec le systeme y sont etudies. 

Serie noire 
176 Pages - 75 FF 





4 Programmer en BASIC 

par Michel Plouin 

Ce livre a ete ecrit pour les 
utilisateurs d'ordinateurs 
individuels en particulier d'Apple II, 
TRS-80 et PET/CBM. 
Un repertoire Basic rend son 
j utilisation tres pratique et facilite 
1 la transposition d'un programme 
j ecrit pour un P.S.I, sur un autre ■ 

Serie verte 
I 132 Pages - 65 FF 



Mathematiques^ 
et statistiques 

par Herve Haut 

Cet ouvrage est un recueil de 
logiciels de base (niveau 
superieur) tant en mathematiques 
qu'en statistiques. 
Chaque probleme traite comporte 
une introduction numerique, 
un expose de la technique 
de programmation 
utilisee, un organigramme 
detaille et un programme 
complet en Basic 
suivi d'un exemple 
d'utilisation. 

EDITIONS DU RSI 272 gs 
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Survol de I'Apple III 



BRUNO RIVES 



Que se cache-t-il derriere Apple /// ? 

Le dernier-ne de la firme calif ornienne n'est sorti que tout recemment en EUrope. 
II s'agit d'un ordinateur personnel dont les caracteristiques se rapprochent plus 
d'un mini que d'un micro. De memoire centrale 128 K octets extensible a 256 K, 
dote d'un micro-process eur deux fois plus rapide que celui de I'Apple II, 
possedant un systems d ' exploitation tourne vers 1 ' utilisateur final, capable de 
supporter des disques durs de bureau d'une capacite de cinq millions d' octets, 
1' arrive e de I'Apple /// est vraiment un evenement. 

Les caracteristiques du materiel 



L' Apple /// possede en standard une memoire centrale de 128 K. Elle peut etre 
portee a 256 K par 1' addition de memoires supplementaires et d'un lecteur de 
disquettes integre. Des connecteurs incorpores peuvent relier l'appareil a trois 
autre s lecteurs de disquettes, sans interface supplementaire . 

Le clavier est plus elabore que celui de I'Apple II, comportant notamment une 
partie numerique separee ainsi que deux touches de fonction, quatre de direction, 
toutes etant a repetition automatique. Le clavier peut etre equipe en version 
AZERTY accentuee. L'affichage permet plusieurs modes au choix. En mode texte, on 
obtient 80 colonnes sur 24 lignes en noir et blanc, 40 sur 24 en noir et blanc ou 
en 16 couleurs, l'ecran pouvant etre divise en fenetres. En mode graphique, on 
dispose au choix de 560 points par 192 en noir et blanc, 280 par 192 en noir et 
blanc ou en couleurs limitees, ou 1 40 par 192 en 16 couleurs. 

En standard, nous trouvons egalement une interface RS232C pour connection sur tout 
type d'imprimante serie ou pour une utilisation en communication, une interface 
pour imprimante SILENTYPE, une sortie analogique, une prise video et une sortie 
couleur aux normes americaines mais facilement transformable pour la France. 

La plaque de base de I'Apple /// possede en outre des slots d ' entree-sortie (comme 
sur I'Apple II) permettant de connecter quatre peripheriques supplementaires. Des 
cartes d'interface sont deja developpees sur Apple /// dont une carte parallele 
universelle et la carte Thunderlock qui permet de remedier pour 1' instant a 
1' absence de carte horloge integree. 

La grand e nouveaute est incontestablement aussi la sortie quasi simultanee de 
PROFILE, un disque dur de cinq millions d' octets a usage lui aussi individuel. II 
s'agit d'un disque 5 pouces 1/4, technologie Winchester, dont les caracteristiques 
de fiabilite et d ' utilisation (absence de bruit, totale compatibility avec les 
systemes et programmes) le mettent a la portee de quiconque. II est possible de 
connecter jusqu'a quatre PROFILES sur un meme APPLE ///, ce qui porte a 20 mega- 
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octets (plus les possibilites de disquette) la memoire de masse en ligne. 
Le systeme d ' exploitation 



SOS (Sophisticated Operations Systems) est le nouveau systeme d ' exploitation 
developpe par Apple pour 1' Apple ///. Ses caracteristiques justifient son titre: 

* Traitement de fichiers : le systeme d' exploitation de 1' Apple /// considere 
tout peripherique comme un fichier que 1 ' on peut ouvrir et fermer, dans lequel on 
peut lire et ecrire, que ce soit un fichier sur disque, une imprimante ou un 
modem. Done plus de probleme pour specifier un peripherique ou un autre; ils sont 
tous geres de la meme maniere. On peut creer des catalogues et des sous-catalogues 
de fichiers et done les trier selon les criteres voulus. 

* Gestion de la memoire centrale: 1' Apple /// possede 128 K ou 256 K de memoire 
vive avec un micro-processeur 8 bits; comment cela est-il possible ? Grace a deux 
aspects tres sophistiques du systeme. Le premier est le "Bank Switching" : 
l'espace memoire est decoupe en banques de 32 K et le systeme permet de passer 
d'une banque a 1' autre de facon transparente comme sur les minis ou les gros 
systemes . La deuxieme ressource est le "zero page switching" qui permet a chaque 
banque d' avoir sa propre page zero. II ne s'agit plus d'une memoire physique comme 
sur 1' Apple II mais d'une memoire virtuelle. 

* La gestion des interruptions est integree dans le SOS et se situe a deux 
niveaux: au niveau systeme, les interruptions provenant des peripheriques sont 
facilement recuperables grace a des sous-programmes specialement prevus (nul 
besoin d' ecrire ses propres sous-programmes en langage machine). Au niveau 
utilisateur, il est tres facile de profiter en BASIC ou Pascal de ces possibilites 
par des fonctions de langage comme ONKBD qui est activee des que 1 ' on touche au 
clavier . 



Le logiciel d ' exploitation 



II faut tout d'abord signaler les deux langages qu'Apple a choisi d'implanter sur 
Apple /// : 

- Le Business BASIC est une version amelioree de l'Applesoft et contient des 
instructions telles que PRINT USING et IF THEN ELSE qui manquaient sur 1' Apple II. 
Les possibilites de precision sont ameliorees puisque les nombres peuvent 
atteindre 19 chiffres, la longueur des noms de variables peut comprendre 64 
caracteres et toutes les possibilites du SOS sont utilisables au niveau du BASIC. 

1' Apple /// Pascal est une version de 1 ' UCSD Pascal dont nous ne decrirons 
pas les caracteristiques de langage. II permet d'utiliser toutes les possibilites 
du systeme d ' exploitation SOS et est le meilleur outil de developpement sur Apple 
///. 

La compatibility entre 1' Apple II et 1' Apple /// est totale au niveau du Pascal 
(il suffit de recompiler les programmes). Pour le BASIC, on peut soit utiliser 
1' Apple /// en mode simulation Apple II, soit faire passer les programmes BASIC 
sur l'Apple /// en' utilisant un programme de transfert (il faudra bien sur les 
modifier pour les rendre compatibles avec le Business BASIC) . 

De nombreux utilitaires sont disponibles, le plus important etant destine a la 
gestion des peripheriques (configuration, copie, operations sur les fichiers...). 
Tous les sous-programmes de gestion des peripheriques sont egalement prevus et 
peuvent etre inclus dans le systeme d ' exploitation en fonction du traitement: 
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lecteurs de disquettes, Profile, Silentype, RS232C, Qume, graphique ... 



Les programmes d ' application 



Apple estime qu'en un an autant de programmes auront ete developpes sur Apple /// 
qu'en six ans sur Apple II. De nombreuses societes de logiciel produisent deja des 
applications sur Apple /// et de nouveaux logiciels apparaissent toutes les 
semaines . Pour l'instant, Apple propose plusieurs produits: 

* Un traitement de texte, Applewriter ///, qui n'a rien a envier aux plus 
sophistiques des programmes de ce type, permettant notamment la connection avec 
d'autres fichiers SOS et la possibility d' ecrire des procedures chainees de 
traitement de texte rendant aises le courrier automatique, le calcul de devis, 
etc . 

* VISICALC ///, qui est la nouvelle version de VISICALC adaptee a 1' Apple ///. 
Plus rapide et travaillant en 80 colonnes, il a egalement l'avantage de pouvoir 
gerer de plus gros mode les. 

* MAIL LIST MANAGER, programme de gestion de fichier individuel et d' impression 
d'etiquettes. 

* ACCESS ///, programme de communication qui permet de relier 1' Apple a un autre 
systeme inf ormatique . 

* Un programme de trace graphique, BUSINESS GRAPHICS, qui permet de transcrire 
sous forme de graphiques sophistiques 1 'information venant de programmes tels que 
VISICALC /// ou d'autres programmes d ' application . 

En conclusion, Apple /// est en fait destine a un marche different de celui de 
l'Apple II, meme si certains utilisateurs de l'Apple II haut de gamme opterons 
pour ce nouveau produit. Tout le monde n'a pas besoin de 128 K de memoire 
centrale, d' interfaces de communication ou de disques durs de 5 millions d' octets. 
Par contre, il y a un creneau reserve d ' ordinaire aux mini-ordinateurs ou aux 
systemes de time-sharing, et un besoin non encore satisfait par 1 ' inf ormatique 
classique auquel Apple /// repond parf aitement . Destine aux Etats-Unis aux 
utilisations personnelles et prof essionnelles telles que le traitement de texte, 
le graphique , la gestion de tableaux ou de fichiers personnels, il devrait etre 
utilise en France non seulement pour ces fonctions, mais aussi pour des 
applications d ' inf ormatique classique telles que la comptabilite , la paie , la 
facturation, 1' analyse des ventes ... 



Note de la redaction. 



II faut que nous temperions 1 ' enthousiasme bien comprehensif de notre ami Bruno 
Rives par quelques commentaires soulignant les problemes eventuels relatifs a 
l'Apple ///. 

Les premiers 10.000 Apple /// distribues aux Etats-Unis ont ef f ectivement eu des 
problemes de fiabilite de circuits et de surchauffe, consequence secondaire de 
1' ambition de faire coexister tant de possibilites a l'interieur d'un ordinateur 
individuel. II semblerait que ces problemes alent disparu, a la suite de la 
refonte d'un certain nombre d' elements par Apple, sur un budget additionnel de 5 
millions de dollars. II n'y a pas suffisamment d ' utilisateurs en France en ce 
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moment pour que nous puissions en dire plus a ce sujet. Nous attendons d'en avoir 
un sous la main . . . 



Faisons le 
1' Apple /// 



point des remarques negatives que nous avons pu relever a l'egard de 



a) c'est tres bien de pouvoir disposer de 128K, mais il n'en reste en fait que 70 
apres chargement du SOS. Pour disposer de plus de place, il faudra liberer les 
zones memoire occupees par des fonctions du SOS inutiles pour un traitement donne. 

b) en matiere de gestion de fichiers, no tons un catalogue d'apparence beaucoup 
plus prof essionnelle . II semble cependant y avoir un probleme quand on reecrit un 
fichier: on court pour l'instant vers des ennuis si' 1'o'n reecrit un fichier sans 
1' avoir annule auparavant, a cause de la presence d'EOFs parasites quand le 
fichier a ete raccourci . Cela fait perdre un des avantages du catalogue dans 
lequel apparaissent la date de creation et la date de derniere modification du 
fichier, car celles-ci sont alors forcement identiques. 

c) 1' Apple /// ne dispose pas encore de manuels en francais aussi bien finis que 
ceux de 1' Apple II. En outre, il manque des utilitaires indispensables tels que 
PLE et DAKIN, pour n'en citer que deux. Par contre ceux-ci fonctionnent tou jours 
aussi bien en simulation de 1' Apple II. 

d) le clavier numerique separe ameliore significativement la rentree de donne es . 
Ce n'aurait pas ete une mauvaise idee d'y incorporer les touches +,-,*,/ et =. 

e) le probleme de 1' horloge prevue initialement n'a pas ete resolu. L'arrivee de 
la carte integree est annoncee pour debut 1982 (?) 

f) le passage a 560 points horizontaux dans le mode graphique releve d'un tres bon 
sentiment. Pourquoi n 1 avoir pas aussi ameliore la definition verticale ? 

g) les lecteurs de disquette supplementaires ne sont pas compatibles avec ceux de 
l'Apple II. En cas de panne, pas de cannibalisation possible avec un Apple II ! 

Malgre ces critiques, les rares utilisateurs que nous connaissons , apres avoir 
souffert des bugs de la version initiale du materiel, sont tout a fait satisf aits 
de l'Apple ///. Les prix publics annonces sont de 23.700 F HT pour l'Apple /// 
(sans moniteur), 23-700 F pour le PROFILE, 2.500 F pour le moniteur et M.050 F par 
lecteur supplementaire . Ce n'est helas pas donne : avec un second lecteur, le 
moniteur, une imprimante moyenne et une carte parallele, on arrive a un budget de 
36.000-37.000 F HT ! 




0BRAIRIE LA NACELLE 

INF0RMATIQUE • ELECTRONIQUE • AUTOMATISME • MICROPROCESSEUR 

TOUS OUVRAGES ET ABONNEMENTS 
FRANQAIS ET ETRANGERS 

Tous les ouvrages francais ou etrangers signales dans cette revue peuvent etre obtenus ou commandes a La Nacelle 

2, rue Campagne-Premiere 75014 PARIS - Tel. 322 56 46 

Metro Raspail - Parking a la hauteur du 120 bd du Montparnasse 
ouvert tous les jours lundi compris, sans interruption de 9 h 30 a 18 h 50, samedi fermeture a 17 h 50. 
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Le jeu de la vie 



JEAN-FRANCOIS DUVIVIER 



Cet article fait suite a ceux consacres a ce jeu dans 1 ' Ordinateur individuel dans 
les numeros 2 7,28 et 29 (mai a aout 1981). On se contentera ici de rappeler que le 
jeu consiste a faire evoluer une population, generation apres generation. Une 
population est un ensemble de points, situes aux intersections des lignes d'une 
grille carree infinie. Les regies d' evolution sont imperatives; il n'y a pas de 
marge de manoeuvre et l'avenir de la population initiale est en fait predetermine 
des le depart. A chaque generation, des points meurent , d'autres naissent. Ainsi 
va la vie . . . 

Chaque cellule peut avoir jusqu'a huit voisines immediates. Une cellule nait dans 
une position vide si elle a exactement trois voisines. Elle meurt de neurasthenie 
avec une voisine, et succombe a 1 ' etouf f ement si elle en a quatre ou plus. 

Cette serie d' articles a attire ma curiosite et m'a donne l'envie de realiser mon 
propre programme. La folie des grandeurs aidant, me voici a rever d'un jeu rapide 
(mois de 10 secondes a chaque generation) avec 53760 cellules. Pourquoi ce chiffre 
bizarre ? Parce qu'il correspond exactement au nombre de points affiches en haute 
resolution. 

A ce stade, 1' Applesoft ne pouvait satisfaire aucune de mes exigences. Seule 
solution: 1 ' assembleur . Un rapide calcul me permit de pouvoir esperer atteindre 
mon but . 

La mise au point a pris quelque temps. En effet je me suis laisse prendre au piege 
de belle maniere. L'affichage haute resolution est fait dans l'ordre inverse des 
bits. Le point le plus a gauche correspond au bit 0, celui le plus a droite au bit 



Bits 7 6 5 13 2 10 

Apres les corrections necessaires, voici le programme pret pour les essais en 
grandeur nature. Les resultats sont a la hauteur de mes esperances: 5 secondes 
pour un ecran pratiquement vide, 9 secondes dans les cas les plus defavorables . 

Vous prendrez, je l'espere, plaisir a exe cuter ce programme et a reperer les 
populations fixes (aucun changement), stables (figures se repetant a une frequence 
plus ou moins longue), ou vouees a 1' extinction ! 



6. 
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A. Structure du Programme 



1. Routine COMPT (comptage) 
Entree: registre A 
Sortie: registre B 



Fonction: a partir d'un octet transmis dans le registre A, compter le nombre de 
cellules vivantes (c'est a dire le nombre de bits a 1) sur les trois bits de plus 
faible poids. Ce resultat est disponible dans le registre Y. 



2. Routine C.BIT (calcul d'un bit) 

Entree: OCTH (octet haut) 

OCTM (octet milieu) 
OCTB (octet bas) 

Sortie: RESUL (resultat) 



Fonction: calculer l'etat de la cellule de la generation n+1 a partir des 8 
cellules voisines de la generation n. 



Bits 


7 6 5 4 3 2 


1 





OCTH 


X 


X 


X 


OCTM 


X 




X 


OCTB 


X 


X 


X 



RESUL 



IT 



Chacun des trois octets est pris separement et envoye a la routine COMPT afin de 
calculer le nombre de voisins. A noter que le bit 1 de OCTM ne doit pas etre pris 
en compte dans le calcul. 

En fonction du resultat contenu dans le registre Y, 3 cas sont possibles : 

* voisins <^2 ou>3, la cellule de la generation suivante doit etre vide. RESUL 
est marque d'un bit a (label MORT). 

* voisins = 3, il y a une naissance. Quelle que soit l'etat de la cellule a la 
generation n, la cellule de la generation n+1 est vivante. Un bit a 1 est marque 
dans RESUL (label VIE). 

* voisins = 2, la cellule reste inchangee. On recopie le bit 1 de OCTM dans 
RESUL. 



3. Routine C.BYT (calcul d'un octet) 

entree: OCTH, OCTM, OCTB (octets haut, milieu et bas) 
OCTHS, OCTMS, OCTBS (octets suivants) 

Sortie: RESUL (resultat) 

Fonction: generer un octet resultat, c'est a dire l'etat de sept cellules. Le bit 
7 de chaque octet n'est pas affiche par Apple (information couleur) et ne cons- 
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titue done pas une cellule au niveau de l'ecran. II est force a zero dans RESUL. 



Pour utiliser C.BIT, la routine C.BYT doit presenter la cellule examinee en 
position 1 dans OCTM. D'autre part, le calcul du bit 6 doit prendre en compte pour 
voisins l'etat des bits des octets suivants (attention le bit 7 n'est pas pris 
en compte). II est done necessaire de travailler sur deux octets qui seront 
decales ensemble vers la gauche avant chaque appel de C.BIT. 



bits 



2.1 



OCTHS 


1 1 

OCTH 
i 


OCT MS 


T 

OCTH 
1 


OCTBS 


OCTB 



decalage 



i 

cellules 
I 
I 

examinees 
I 
I 
I 



Apres 7 appels de C.BIT, on obtient dans REGUL, sur 7 bits, les 7 cellules de la 
generation suivante. 



4. Routine C.LGN (calcul d'une ligne! 



Entree : 



LIGN1 
LIGN2 
LIGN3 
LIGNR 



( adresse 
( adresse 
(adresse 
( adresse 



de 
de 
de 
de 



debut 
debut 
debut 
debut 



de 
de 
de 
de 



la 
la 
la 
la 



ligne 
ligne 
ligne 
ligne 



superieure ) 
examinee ) 
inf erieure ) 
res ul tat) 



Sortie: les 280 cellules de la generation n+1 correspondant a la ligne examinee 
sont stockees a partir de 1' adresse LIGNR. 

Fonction: Generation d'une ligne resultat. Lors des quarante appels de C.BYT 
necessaires a 1 'elaboration d'une ligne, la routine C.LGN doit remettre a jour les 
informations OCTHS, OCTMS et OCTBS. Elle doit egalement stocker RESUL dans la 
ligne resultat. 



5. Routine C.ECR (calcul d'un ecran) 

Entree: HPAG (numero de la page graphique affichee: $20 pour la page 1, $40 pour 
la page 2) . 

Sortie: stockage des 53760 cellules de la generation n+1. 

Variables: LIGN1, LIGN2, LIGN3, LIGNR, NOLIGN (numero de ligne courante). 

Fonction: calculer pour chacune des 192 lignes, les adresses de debut de la ligne 
courante, de la precedente et de la suivante, puis appeler la routine C.LGN. 
Le calcul est facilite par 1 ' utilisation de routines haute resolution de 
1 'Applesoft: 

* HPOSN ($F411): donne a partir d'un numero de page (HPAG) et d'un numero de 
ligne (NOLIGN), l'adresse du debut de cette ligne en memoire (resultat dans LIGN). 

* INCRY ($F504): donne a partir de la ligne courante, l'adresse de debut de la 
ligne suivante (resultat dans LIGN). 

* DECRY ($F4D5): donne a partir de la ligne courante, l'adresse de debut de la 
ligne precedente (resultat dans LIGN). 

La routine C.ECR utilise ces trm's routines pour calculer les adresses LIGN1 , 
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LIGN2 et LIGN3. L'adresse LIGNR est obtenue a partir de LIGN2 en effectuant une 
translation de page (decalage de $2000). A noter que l'emploi des routines INCRY 
et DECRY permet de faire le tour de l'ecran (la ligne suivant la ligne 192 etant 
la ligne ) . 



6. Debut de programme 

Le programme commence par un affichage de la page resolution No 1 . La boucle 
permet a chaque generation d'afficher la page calculee et de remettre a jour la 
variable HPAG. 



B. Utilisation du programme 



1. Placez-vous en Applesoft. 

2. Chargez en page haute resolution 1 votre population initiale ( ou tout autre 
dessin haute resolution). 

3. Executez le programme VIE.OBJET. 



1 


£ us us u/ \ff \ff us us us ui us us us us uf u/ us us 
* rt\ m rt\ rt\ rt\ rt\ rt\ rt\ rt\ rt\ m /ft 


08 




32 


PAGE2 EQU 


*C0 55 


2 


* * 






X 


08 




33 


DECRY EQU 


*F4D5 


3 


t x JEU DE 


LA VIE 


X 


08 




34 


INCRY EQU 


*F5 4 


4 


1 * 






X 


08 




35 


* 
* 




5 


t * 


COPYLEFT 


X 


08 




36 


t 




6 


J X 






X 


08 




37 


ORG 


*800 


7 


J X 


POM'S 


X 


08 




38 






8 


t x 






X 


08 




39 






9 


& in jft jft /ft rn /ft /ft /ft rt\ jft JTV /ft /n 


08 




4 


t DEBUT DU 


PROGRAMME 


10 










0800 




41 






11 


OCTH 


EPZ 


*0 




0800 




42 






12 


OCTM 


EPZ 


$01 




08 




43 






13 


OCTB 


EPZ 


*02 




08 


AD50C0 


44 


LDA 


HIRES 1 


14 


OCTHS 


EPZ 


*03 




0803 


AD52C0 


45 


LDA 


HIRES2 


15 


OCTMS 


EPZ 


*04 




0806 


AD57C0 


46 


LDA 


HIRES3 


16 


OCTBS 


EPZ 


*05 




0809 




47 


boucle: 




17 


RESUL 


EPZ 


*06 




08 09 


AD54C0 


48 


LDA 


PAGE1 


18 


SAVX 


EPZ 


$07 




08 OC 


A920 


49 


LDA 


#$20 


19 


SAVY 


EPZ 


*08 




08 0E 


85E6 


50 


STA 


HPAG 


2 


LIGN1 


EPZ 


*0A 




08 1 


202008 


51 


JSR 


C.ECR 


21 


LIGN2 


EPZ 


*0C 




0813 


AD55C0 


52 


LDA 


PAGE2 


22 


LIGN3 


EPZ 


*0E 




0816 


A940 


53 


LDA 


*$40 


23 


LIGNR 


EPZ 


*10 




0818 


85E6 


54 


STA 


HPAG 


24 


LIGN 


EPZ 


*26 




081 A 


202008 


55 


JSR 


CECR 


25 


NOLIGN 


EPZ 


*E2 




08 ID 


4C0908 


56 


JMP 


BOUCLE 


26 


HPAG 


EPZ 


*E6 




0820 




57 






27 


l-IPOSN 


EQU 


*F411 




0820 




58 






28 


HIRES 1 


EQU 


*C050 




0820 




59 


J MISE A JOUR DE L'EC 


29 


HIRES2 


EQU 


*C0 52 




082 




60 






30 


HIRES3 


EQU 


*C0 57 




0820 




61 






31 


PAGE1 


EQU 


*C054 




082 




62 
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0820 




63 


C ♦ E C R ♦ 


























0820 


A900 


64 




LDA 


#$00 






















0822 


85E2 


65 




STA 


NOLIGN 






















0824 


2011P4 


66 




JSR 


HPOSN 






















0827 




67 


b.C R 1 ♦ 


























0827 


20D5F4 


68 




JSR 


DECRY 






















082A 


A526 


69 




LDA 


LIGN 






















082C 


850A 


70 




STA 


LIGN1 






















082E 


A527 


71 




LDA 


L.IGN + 1 






















0830 


85 OB 


72 




STA 


LIGN 1+1 






















0832 


2004F5 


73 




JSR 


INCRY 






















0835 


A526 


74 




LDA 


LIGN 






















0837 


850C 


75 




STA 


LIGN2 




*800 ♦SFD 
















0839 


8510 


76 




STA 


LIGNR 






















08 3B 


A527 


77 




LDA 


LIGN+1 




80 - 


AD 


50 


CO 


AD 


52 


CO 


AD 


57 


08 3D 


85 OD 


78 




STA 


LIGN2+1 




a r\ a r\ 

08 08 - 


f\ A 

C 


AD 


54 


CO 


A9 


20 


85 


E6 


083F 


8511 


79 




STA 


LIGNR+1 




0810- 


2 


20 


08 


AD 


55 


CO 


A9 


40 


0841 


38 


80 




SEC 






08 18- 


85 


E6 


20 


20 


08 


4C 


09 


08 


0842 


E92 


81 




SBC 


#$20 




0820- 


A9 





85 


E2 


20 


1 1 


F4 


20 


0844 


A6E6 


82 




LDX 


HP AG 




0828- 


D5 


F4 


A5 


26 


85 


OA 


A5 


27 


0846 


E040 


83 




CPX 


#$40 




0830- 


85 


0B 


20 


04 


F5 


A5 


26 


85 


0848 


F0 03 


84 




BEQ 


ECR2 




0838- 


OC 


85 


10 


A5 


27 


85 


OD 


85 


084A 


18 


85 




CLC 






0840- 


1 1 


38 


E9 


20 


A6 


E6 


EO 


40 


08 4B 


6940 


86 




ADC 


#$40 




0848- 


F 


03 


18 


69 


40 


85 


11 


20 


08 4D 


8511 


87 


ECR2 


STA 


L.IGNR+1 




0850- 


04 


F5 


A5 


26 


85 


0E 


A5 


27 


084F 


2004F5 


88 




JSR 


INCRY 




0858- 


85 


OF 


20 


66 


08 


E6 


E2 


A5 


0852 


A526 


89 




LDA 


LIGN 




086 0- 


EZ 


C9 


CI 


DO 


C2 


60 


AO 





0854 


850E 


90 




STA 


LIGN3 




0868- 


Bl 


OA 


OA 


85 


00 


Bl 


OC 


0A- 


0856 


A527 


91 




LDA 


L.IGN + 1 




087 0- 


85 


01 


Bl 


0E 


OA 


85 


02 


C8 


0858 


85 OF 


92 




STA 


LIGN3+1 




a o "Y o 

08 78- 


ft H 

B 1 


OA 


85 


03 


Bl 


OC 


85 


04 


085A 


206608 


93 




JSR 


C.LGN 




8 8 - 


Bl 


0E 


85 


05 


88 


CO 


27 


DO 


085D 


E6E2 


94 




INC 


NOLIGN 




0888- 


A O 

8 


A 9 


00 


85 


03 


85 


04 


85 


085F 


M %J C i.. 


95 




LDA 


NOLIGN 




0890- 


a itr 

5 


20 


9F 


08 


A 5 


06 


4A 


91 


0861 


C9C1 


96 




CMP 


#$C1 




0898- 


1 


C8 


CO 


28 


DO 


D9 


60 


86 


0863 


DOC2 


97 




BNE 


E. C R 1 




08 AO- 


A "T 

07 


84 


08 


A2 


07 


20 


BC 


08 


0865 


60 


98 




RTS 






08A8- 


46 


03 


66 


00 


46 


04 


66 


01 


0866 




99 










08 B0- 


46 


05 


66 


02 


CA 


DO 


EE 


A6 


0866 




100 










08B8- 


07 


A 4 


08 


60 


AO 


00 


A5 


00 


0866 




101 


J CALCUL D 


'UNE LIGNE 


08C0- 


F0 


03 


20 


F0 


08 


A5 


02 


FO 


0866 
0866 




102 
103 










08C8- 
08D0- 


03 

29 


20 
1- D 


F0 
20 


08 
F0 


A5 
08 


01 
CO 


FO 
02 


05 
90 












0866 




104 










08D8- 


13 


CO 


04 


B0 


OF 


CO 


03 


FO 


0866 




105 


C.LGNJ 








08E0- 


07 


A5 


1 


4A 


4A 


66 


06 


60 


0866 


A000 


106 




LDY 


#$0 




08E8- 


38 


66 


06 


60 


18 


66 


06 


60 


0868 


BIO A 


107 




LDA 


(LIGN1 ) 


,Y 


08F0- 


4A 


90 


1 


C8 


4A 


90 


1 


C8 


08 6 A 


OA 


108 




ASL 






08F8- 


4A 


90 


1 


C8 


60 


00 






08 6B 


85 


109 




STA 


OCTH 












































08 6D 


B10C 


110 




LDA 


(LIGN2) 


»Y 




















086F 


OA 


111 




ASL 
























0870 


8501 


112 




STA 


OCTM 






















0872 


B10E 


113 




LDA 


(LIGN3) 


»Y 




















0874 


OA 


114 




ASL 
























0875 


850 2 


115 




STA 


OCTB 






















0877 




116 


lgni : 


























0877 


C8 


117 




INY 
























0878 


BIO A 


118 




LDA 


(LIGN1 ) 


*Y 




















087A 


8503 


119 




STA 


OCTHS 
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087C 


B10C 


120 


087E 


8504 


121 


0880 


B 1 E 


122 


0882 


8505 


123 


0884 


88 


124 


0885 


C027 


125 


0887 


D008 


126 


0889 


A900 


127 


088B 


8503 


128 


088D 


8504 


129 


088F 


8505 


130 


0891. 




131 


0891 


2O9F08 


132 


0894 


A506 


133 


0896 


4A 


134 


0897 


9110 


135 


0899 


C8 


136 


089A 


CO 28 


137 


089C 


D0D9 


138 


08 9E 


60 


139 


089F 




140 


089F 




141 


089F 




142 


089F 




143 


08 9 F 




144 


089F 




145 


089F 




146 


089F 


8607 


147 


08A1 


8408 


148 


08A3 


A207 


149 


08A5 




150 


08A5 


2 0I3C08 


151 


08A8 


4603 
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08AA 


6600 


153 


08AC 


4604 
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08 AE 


6601 


155 


08BO 


46 5 


156 


08B2 


6602 


157 


08 134 


CA 


158 


08B5 


DOEE 


159 


08 137 


A607 


160 


08 139 


A408 


161 


08 BB 


60 


162 


08BC 




163 


08BC 




164 


08BC 




165 


08 BC 




166 


08 BC 




167 


08BC 




168 



I..GN2: 



LDA 
STA 
LDA 
STA 
DEY 
CPY 
BNE 
LDA 
STA 
STA 
STA 

JSR 
LDA 
LSR 
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INY 
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BNE 
RTS 
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OCTMS 
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OCTMS 
OCTBS 
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C.BIT 


LSR 


OCTHS 


ROR 


OCTH 
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line routine bien pratique 



II est des routines qui vous attirent irresisti blement en raison de leur 
original ite ou de leur ingeniosite. La routine moniteur de S.H. LAM en est une 
illustration parfaite. 

La technique utilisee permet a 1 'utilisateur de placer dans une chaine de 
caracteres des commandes a destination du moniteur. La principale utilisation est 
de placer en memoire un court programme en langage machine avec une grande 
facilite et sans un nombre invr aisemblabl e de POKEs ou de READ/DATAs. 

La scene se passe en trois actes: 

1. La chaine est scindee en caracteres qui sont places dans le buffer clavier a la 
suite les uns des autres (a partir de l'adresse $100 ou 512 en decimal). 

2. Le CALL-144 met en oeuvre les routines qui examinent le buffer clavier et 
s'assurent de 1' execution des commandes specifiees. 



3. Le retour au BASIC. II est possible, a partir du moniteur, d'incorporer 
plusieurs commandes sur une ligne si on a pris soin d'incorporer un separateur 
(caractere neutre, le "N" par exemple). Aussi lors de l'acte 1 a-t-il ete ajoute 
subrepticement la valeur N D9C6G (en Applesoft) a la chaine de caracteres prevue. 
Lors de l'acte 2, cette command e est executee en dernier, apres toutes celles la 
devancant. Les sous-programmes $D9C6 (Applesoft) cu $E88A (Integer) permettent de 
revenir au mode RUN (execution) au debut de la prochaine ligne BASIC a executer. 
Bien que plus lente que des POKEs et des READ/DATAs, cette routine a 1 ' avantage 
d'etre plus simple a utiliser. Succombere z-vous a son charme ? 



10 REM xxxxxxxxxxxxxxxxxxxx 
x x 
x routine: S.H, LAM * 

X X 

x POUR APPLESOFT * 

X X 

M/ %lf %lf %lf %lf %lf %lf vi/ u/ u/ u/ vi/ viz u> u# viy vi/ *•# 

rt\ m /l\ fl\ fl\ JT\ fl\ fl\ fl\ rt\ rt\ rt\ JTV JTV JtV ^\ rt\ m 

20 REM 



10 Y* == "30 0:FF FF FF FF FF FF" 
110 GOSUE 6390 0: END 
639 REM 

ROUTINE MONITEUR 
63 9 OS REM APPLESOFT DE S.H, LAM 



63910 Y$ - Y$ + " N D9C6G" 
63920 FOR I = 1 TO LEN <Y*) 
63930 POKE 511 + I, ASC ( MID* C 

Y*,I,1>) + 128 
63940 NEXT t POKE 72,0 5 CALL - 

144 

63950 RETURN 



10 REM xxxxxxxxxxxxxxxxxxxxxxxx 

x x 

x ROUTINE DE S.H. LAM x 

x x 

20 REM x POUR INTEGER x 

x x 

iu \U itf w uf uf W lir T±f w w w ft i±r w w %tf V W*" Vf 

30 REM 



50 DIM Y*(255) 

10 Y*="30 0JFF FF FF FF FF" 

110 GOSUE 320 

12 END 

320 REM 



ROUTINE DE S.H. LAM 

POUR INTEGER 



32010 Y*( LEN(Y*>+1>=" N E88AG' 

32 020 FOR I==l TO LEN ( Y$ ) 

32 03 POKE 511+1, ASC<Y$(I>> 

32 40 NEXT I 

32050 POKE 72, 0: CALL -144 

32 060 RETURN 
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Les clubs ont la parole 



Apple Club - Avenue Paul Gilson 387 - 1620 Drogendos - Belgique 

Nous sommes heureux de vous faire part de la- creation d'un club d 'utilisateurs de 
1' Apple II. 

Les objectifs de ce club sont d'apporter a ses membres une aide tant au niveau 
hardware que software et d' avoir acces a la programmatheque du club. 

Notre club tiendra ses reunions dans les locaux aimablement pretes par P.N.B. 
Computer Center. 

Contacter V. Brunette (02) 376 4244 ou Y. Fischer (02) 356 1817 
Ma Pomme - 6 rue Paul Sauniere - 75016 Paris - France 

Message du president : "Utilisateur d'Apple, je me suis mis a la recherche d'un 
club et me suis fait pieger dans quelque chose qui n'avait de club que le nom! A 
partir de la, j'ai decide de creer le 1 chez soi' de tous les utilisateurs d'Apple. 
C'est a ce moment-la que j'ai eu la chance de rencontrer celui qui allait devenir 
notre secretaire ... Nous desirons regrouper tous les utilisateurs d'Apple, de 
quelque horizon qu'ils viennent, pour une association de type 'defense du 
consommateur ' ". 

Le club compte actuellement cinquante membres, dans l'hexagone et outre-mer. Leur 
niveau de competence est aussi varie que leur origine geographique , s'etendant du 
novice a l'expert. Les activites de la section parisienne sont es sent iell ement 
axees autour de reunions bimensuelles consacrees a des sujets particuliers 

(langage LISP, Microdial , ) ou generaux (documentation, logiciels recents, 

utilitaires, cartes, ...). Notre objectif est simple : etre utiles. 

Le club tient a declarer qu'il respecte la loi concernant la copie des logiciels 
copyrightes et espere avoir une action sur les prix auxquels ils seront proposes. 

Telephoner tous les jours de 20H a 24H au ( 1 ) 558 0578. 
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Une informatique de yestion adaptee aux besoins des gestionn aires et realises par des yestionnaires. 



ETUDIE 

FORME 

REALISE 

LIVRE 



• opportunity d'utilisation de l'outil micro-informatique 

• integration entre inf ormatique traditionnelle et personnelle 

• politique de la communication dans 1'entreprise 



• formation a ('utilisation de la micro-informatique 

• realisation de programmes a la demande 



• livraison de systemes cles en main, avec des progiciels de 
GESTION DE STOCK, PAYE, COMPTABILITE. 



Nous sommes gestionnaires avant d'etre informaticiens. L'informatique doit s'adapter a l'homme, et non l'inverse. 
L'outil micro-informatique repond particulierement bien a ce souci de qualite et d'efficacite du travail, 

dans des conditions conviviales. 
Nombreuses references en informatique traditionnelle - divers materiels - et en informatique individuelle - principalement 

Apple - aupres des PME et des groupes industriels. 
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s.a. Centre La Chataigneraie - 29, avenue de Versailles - 78170 La-Celle-St-Cloud - Tel. : (3) 918.13.07 



Revue de presse -JFD 



Depuis quelques mois, de nombreux livres et revues sur Apple ont paru. J 'en ai 
selectionne cinq parmi les plus recents. Deux d'entre eux, par leur exceptionnelle 
qualite, me semblent se hisser nettement au-dessus des publications actuelles 
(POM'S excepte) et devoir servir de bible a tous ceux qui souhaitent savoir ce qui 
se passe sous le capot de leur Apple. 

* Beneath Apple DOS. Don Worth et Pieter Lechner. Quality Software (176p. en 
anglais ) . 

Apres tout ce qui a deja ete ecrit sur ce diable de petite machine, il est bien 
difficile de nos jours de se passionner pour un livre. Et pourtant !... Je 
n'hesiterai pas a dire que cette publication a ete l'un des faits majeurs de cette 
annee. II aurait tres bien pu s'appeler "Tout ce que vous avez tou jours voulu 
savoir sur le DOS sans jamais le trouver dans le manuel du DOS". 

Avant d'aller plus loin, je soulignerai que ce livre n'est pas destine aux 
debutants mais s'adresse a des lecteurs ayant deja completement assimile le manuel 
Apple et desirant comprendre 1 ' architecture interne du DOS et son utilisation a 
partir de 1 ' assembleur . 

Ce livre, tres bien presente sous un format identique a celui des manuels Apple, 
est divise en huit chapitres. 

1 . Une introduction 

2. L'evolution du DOS et les differences entre chaque version (3,3-1,3-2,3-3) 

3. Le formattage d'une disquette: le pourquoi et le comment. 

4. L ' organisation de la disquette reprend un certain nombre d ' informations 
provenant du manuel du DOS, mais en les approf ondissant . Ou est place le DOS, le 
catalogue ? Que sont la VTOC et les tables de renvoi pistes /secteurs ? Comment 
sont stockes les fichiers, les programmes en binaire, Applesoft ou Integer ? 
Autant de reponses precises et claires. 

5. La structure du DOS explique comment se passe le "boot" et decrit 1 1 utilisation 
de la memoire par le DOS. 

6. L ' utilisation du DOS a partir de 1 ' assembleur : comment lire un secteur, 
travailler sur un fichier, faire un catalogue... 

7. Comment singulariser et modifier le DOS (voir 1 'article de Christian Guerin). 

8. Le schema logique du DOS. Le chapitre examine pas a pas chaque routine du DOS 
et sa fonction. Seul regret, le DOS etant "copyrighte" par Apple, il n'a pu etre 
presente sous forme de listing commente. Cependant, la clarte des explications et 
les differentes indications donnees permettent une comprehension aisee. 

A la suite de ces huit chapitres figurent trois annexes. La premiere fournit le 
listing et les explications de petits programmes en assembleur tres precieux: 
initialisation d'une seule piste, lecture complete d'une piste, etc. La deuxieme 
donne quelques explications tres sommaires sur les methodes de protection 
utilisees pour empecher la copie. La troisieme constitue un glossaire de douze 
pages de tous les termes employes et des pages oil ils sont commentes. 

En conclusion, il s'agit d'un manuel excellent et pratiquement sans defaut que je 
recommande a tous les passionnes de 1 ' assembleur . 
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* What's Where In The Apple. An Atlas To The Apple Computer. Pr. William F. 
Luebbert ( 1 1 p . en anglais) 

La publication dans un article de MICRO, the 6502 Journal, d'un atlas de 7 pages 
comprenant les principales adresses de 1' Apple avait deja valu a son auteur une 
certaine consideration. Mais que dire apres une si belle recidive ? 

Scinde en deux parties, cet atlas rassemble plus de deux mille adresses en 
memoir e. Page zero, pages graphiques, DOS, Integer, Applesoft, Moniteur: tout est 
passe au crible. 

La premiere partie est organisee par adresses croissantes. Pour chacune sont 
donnes la valeur hexadecimale , la valeur decimale, le label eventuel et une 
explication. Dans le cas de routines, y sont egalement consignes les registres du 
6502 qui sont modifies. La deuxieme partie reprend les memes informations mais par 
ordre alphabetique des labels. 

Seul reproche a formuler, je n'ai pu y trouver 1 ' explication de certains sigles 
figurant en face de chaque adresse. J'ai egalement pu trouver (et n'en suis pas 
peu fier) quelques adresses speciales n'y figurant pas ! 

De presentation dense et concise (parfois trop), cet atlas represente le principal 
outil de travail sur Apple des que 1 1 on veut s'aventurer hors des octets battus. 

* Apple II Monitors Peeled. Apple Computer Inc. (90p. en anglais). 

La premiere version de ce manuel, ecrit par William E. Dougherty, date de Mai 1979 
et etait distribute a ses membres par le club americain A.P.P.L.E. (Apple 
Pugetsound Program Library Exchange). Seduit et convaincu de son utilite, Apple 
Computer Inc. a revise et ameliore son contenu pour en editer un manuel de meme 
format que ceux que nous connaissons. 

Exclusivement dedie aux moniteurs (l'ancien et 1 '.Autostart ) , 1' Apple II Monitors 
Peeled explicite 1 'usage des differentes variables en page zero et de toutes les 
routines utilisees dans le moniteur. Quelques programmes en Applesoft permettent 
d'utiliser immediatement les informations acquises. 

Tres interessant pour les lecteurs programmant en assembleur, il peut egalement 
etre recommande pour les debutants qui desirent apprendre comment fonctionne le 
moniteur: grace au style clair et precis et a de nombreuses explications, ils ne 
seront pas trop perdus. A quand la traduction francaise ? 

* Call-A.P.P.L.E. In Depth NO 1. All About Applesoft (135p. en anglais). 

Edite en hors-serie par le magazine "Call-A.P.P.L.E.", ce numero est entierement 
consacre a 1' Applesoft. II regroupe de nombreux articles s ' interessant tant a la 
structure interne de 1' Applesoft (stockage des programmes et de ses variables en 
memoire, utilisation des adresses en page zero...) qu'a son utilisation (overlay, 
rapidite . . . ) . A noter que les nombreux programmes presentes dans la revue peuvent 
vous etre livres sur disquette. 

* Micro Apple 1. Micro, the 6502 Journal (en anglais). 

Ce numero 1 regroupe trente articles publies dans la revue entre 1977 et 1981, et 
comprend une disquette d 'accompagnement . D'un interet limite pour le programmeur 
confirme, il peut cependant etre interessant pour des debutants qui y trouveront 
des programmes courts et simples dont ils pourront s'inspirer. 
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Courrier des lecteurs 



J'ai trouve une erreur dans votre 
revue ! Page 42, section 7, il faut 
lire CTRL-J a la place de CTRL-M. Ce 
n'est pas important, mais cela me 
fournit un bon pretexte pour vous 
ecrire . 

Evidemment, je tiens a vous feliciter 
pour la tenue de votre revue, c'est 
bien , continuez, n'hesitez pas a 
ecrire des programmes en assembleur 
Un haut niveau de programmation 
est apprecie. 

En ce qui concerne les erreurs dans 
les articles, j'ai apprecie le 
serieux avec lequel elles ont ete 
traquees. Malgre cela, des "vers" 
passent a travers le tamis . . . 

C'est pourquoi je vous supplie, si 
par megarde une "bogue" se produit, 
ne la cachez pas a vos lecteurs et 
faites les corrections necessaires 
dans le numero suivant, en gros sans 
se cacher. 



Le POKE se trouve dans la zone CPM 
I/O. A priori, cela fonctionne sans 
probleme, mais ce qui m'inquiete, 
c'est que Microsoft ne l'ait pas 
prevu. 

** P. Bekaert - Le Mesnil St Denis ** 
Quelqu'un sait-il pourquoi ? 



J'ai pris un abonnement, ne 
connaissant pas votre revue ... 
J'espere en tirer partie , mais 
j'avoue bien sincerement que le 
niveau est haut pour mes minimes 
connaissances. Le probleme des 
debutants est bien simple, car 
ceux-ci sont livres a eux-memes sans 
documentation, ou bien avec une 
documentation en anglais, et surtout 
sans conseils ni professeurs. lis 
sont done tenus d'apprendre seuls et 
ce n'est pas facile. 

Que me donnera 1 ' inf ormatique , je 
l'ienore. mais n ' intwoooant .To 
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Formattez vos programmes 



I] LIST N'avez-vous jamais eu envie d'agrementer 

vos programmes de petits tableaux comme 
100 REM ******************* dans l'exemple presente a gauche ? Si vous 

* FORMATTEZ VOS * avez essaye, vous vous etes apercu que cela 

* PROGRAMMES DE * demandait beaucoup de travail car la 

* BELLE MANIERE * presentation du texte a l'ecran est 
******************* dif f erente de sa physionomie dans un 

listing. 

Le BASIC, Applesoft ou Integer, introduit en effet des espaces supplementaires aux 
caracteres que vous frappez. C'est la raison pour laquelle 1 ' utilisation du "Poke 
33,33" est si precieuse pour les corrections. 

La solution a tous vos problemes de presentation de programmes reside dans les 
instructions suivantes: 

- Poke 33,28 (en Applesoft) 

- Poke 33,32 (en Integer) 

Apres avoir procede au POKE adequat, vous pouvez entrer au clavier les REM suivant 
le format que vous souhaitez. Quand vous avez termine, utilisez 1 1 instruction 
"POKE 33,^0" ou la commande TEXT (ou encore appuyez sur Reset si vous avez 
1' Autostart) pour retablir la fenetre de visualisation normale. Vous pouvez alors 
lister le programme, les REMarques resteront bien en place. 
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PROMOTIONS 
SPECIALES 
reservees 
aux lecteurs de 
"POM'S" 



PRK FT.T.C. 

APPLE II + 16 K 8 500 

APPLE II + 32 K 8 750 

APPLE II + 48 K 8 990 

APPLE III 128K 26 000 

DISK II + CONTROLEUR 4 720 

DISK II 3 375 

DISK III SUPPL 4 400 

DISK 8" 2*256 K 19 150 

DISK 8" 2*51 2 K 24 100 

DISQUE DUR 10 MGA 41 500 

MODULATEUR N/B KIT 220 

CARTE COULEUR SECAM 1 050 

CARTE COULEUR R.V.B 920 

INTERFACE// 1 350 

INTERFACE // APPLE III . 1 600 

INTERFACE V24. RS 232 1 450 

CARTE INTEGER 1 450 



PRIX 



CARTE APPLESOFT . . 
CARTE PASCAL . . . 
CARTE LANGAGE ■ ■ 
CARTE MICROSOFT Z80 
TABLETTE GRAPHIQUE 
CARTE IEEE 488 . . . 
CARTE PROTOTYPE 
CARTE PROTO APPLE 
CARTE RECON. PAROLE 
CARTE MICROMUSIC 
CARTE APPLECLOCK . 
CARTE TIMER CCS . . 
CARTE VIDEOTHERM 80C 
CARTE SMARTEM 80C 
SYLENTYPE II ... 
KIT SYLENTYPE II III 
EXTENSION 16 K RAM ■ 




1 450 
3 240 

1 580 

2 750 
5 200 

3 100 
160 
390 

1 450 

1 320 

2 160 

1 150 

2 970 

2 180 
2 800 
270 
250 
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PROMOTION DU MOIS 



APPLE II 48 K + DISK II avec Controleur + Moniteur Vert 9" + 1 disquettes 

14 400 FT.T.C. 
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Liste detaillee des produits contre enveloppe fimbria Ces prix vous seront consentis sur presentation de cette pubiicite. 

J.C.R. Electronique - 58 rue Notre-Dame-rfe-Lorette - 75009 Paris - Tel. : (1) 282.19.80 

Expedition darts toute la Ffance - Materiel garanli 1 an pieces et M.-O. - Ouvert du mardi au samedi de 10 h a 13 h et de 14 h a 19 h 

En raison des fluctuations monetaires, ces prix sont susceptibles d'etre modifies sans preavis. Nous consuiter pour confirmation. 



voire micro -inf ormotique ! 



Vous etes industriel, chercheur, enseignant, parti- 
culier, membre de profession liberale. 

Nous sommes une equipe d'ingenieurs ayant une 
position de leader sur le marche de la micro-informa- 
tique et nous avons une experience unique en matiere 
d'installation et maintenance de systemes. 

Nous sommes faits pour nous entendre. 



Micro Informatique Diffusion 



51 bis, AVENUE DE LA REPUBLIQUE, 75011 PARIS. TEL: 357.83.20. 



• Micro-ordinateurs. Apple Commodore Pertec. 

• Peripheriques. 

Disquettes, disques durs, imprimantes, terminaux 
clavier-ecran, tables tracantes, tables a digitaliser. 

• Interfaces. 

Pour terminaux de tous types (V 24 RS 232C, 8 bits 
paralleles). Entrees analogiques. Sorties analogiques. 
IEEE-488. Entrees BCD. Cartes base de temps horloge. 
Calcul rapide. 



Ouvert de 9h a 12h et de 14h a I9h. Sauf le dimanche. 



